IBM OEM Software Product … CD For PC Manufacturers/IBM OEM Software - Product Sampler CD for PC Manufacturers.iso/InternetIntranets/Notes/LOTUS024.DSK/MAIL46.NTF

Lotus Notes Database | 1997-09-15 | 2MB | 23,749 lines

Mail (R4.6)
#1StdR46Mail
e:\notefile\maddash\mail46.ntf
\mail46.ntf
$FolderInfo
$FolderRefInfo
FOLDER_DIRECTORY_OBJECT
($Alarms)|$Alarms
($Inbox)
($Trash)
CN=Lotus Notes Template Development/O=Lotus Notes
<    <
!X%`P
P5~K-!W
qHmvO
Started running agent '_Calendar Tools\Calendar Profile... | Calendar Profile' on 03/10/97 11:01:08 AM
1 document(s) were modified by formula
Done running agent '_Calendar Tools\Calendar Profile... | Calendar Profile' on 03/10/97 11:01:08 AM
_Calendar Tools\Calendar Profile... | Calendar Profile
E41f3
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes+
#####################################################
Periodic Archive
1SfL3
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################################
Mail Tools\Create Stationery... | CreateStationery303
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes%
###################
_Calendar Tools\Delete Repeating Appointment(s)... | DeleteRepeatingFormula
E4fL3
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes0
########################################################
CN=Barney Rubble/O=Iris AssociatesCN=Buzz Lightyear/O=Iris AssociatesCN=Ryan Jansen/O=IrisCN=Buzz Lightyear/O=Iris AssociatesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesDatabase Scriptt34Q1#########################################################
Update Tasks
1SfL3
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
_Calendar Tools\Open Another Calendar... | Open Another Calendar
E41f3
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes`
###########################################
ProcessOutOfOffice
1SfL3
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
Mail Tools\Archive Selected Documents
E4fL3
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
CalendarProfile
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub Terminate
Declare Sub Main
Declare Sub GetProfileSettings
Declare Sub CreateLogDocument
Declare Sub ProcessDocuments
Declare Sub EvaluateDocument
Declare Sub ArchiveDocument
Declare Sub FixReaderNames
Declare Sub AddDocumentToLog
Declare Sub CloseLogDocument
Declare Sub MarkLogDocuments
'++LotusScript Development Environment:2:5:(Declarations):0:10
'%INCLUDE "lserr.lss"
'%INCLUDE "lsxbeerr.lss"
Const MAXARCHIVEITEMS = 50
Dim session As NotesSession
Dim dbSource As NotesDatabase
Dim dbArchive As NotesDatabase
Dim docSource As NotesDocument
Dim docArchive As NotesDocument
Dim docLog As NotesDocument
Dim docProfile As NotesDocument
Dim viewArchive As NotesView
Dim dtNow As NotesDateTime
Dim dtExpired As NotesDateTime
Dim dtDocument As NotesDateTime
Dim dtCompare As NotesDateTime
Dim docsCollection As NotesDocumentCollection
Dim rtitem As NotesRichTextItem
Dim item As NotesItem
Dim nidArray() As String
Dim SourcePath As String
Dim SourceServer As String
Dim ArchiveServer As String
Dim ArchivePath As String
Dim ArchiveLog As String
Dim IncludeDocLinks As String
Dim ArchiveExpired As String
Dim ArchiveInactive As String
Dim ExpiredLife As Integer
Dim DocumentLife As Integer
Dim nLogItems As Integer
Dim numDocs As Integer
Dim numDocsArchived As Integer
Dim i As Integer
Dim DoNotRun As Variant
Dim DocCanBeArchived As Variant
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
     'initialize some variables
     Set session = New NotesSession
     Set dbSource = session.CurrentDatabase
     Redim nidArray(5)
     nLogItems = 0
     numDocsArchived = 0
     'call the main entry point
     Main
End Sub
'++LotusScript Development Environment:2:2:Terminate:1:10
Sub Terminate

End Sub
'++LotusScript Development Environment:2:2:Main:1:8
Sub Main
'Read the profile document to see what options are enabled and where databases are located
     GetProfileSettings
     If DoNotRun Then Exit Sub

'setup the date/time structures
     Set dtNow = New NotesDateTime("")
     Set dtExpired = New NotesDateTime("")
     Set dtDocument = New NotesDateTime("")
     Set dtCompare = New NotesDateTime("")
     dtNow.SetNow
     dtExpired.SetNow
     dtDocument.SetNow
     dtCompare.SetNow
     If ArchiveExpired = "Yes" Then dtExpired.AdjustDay(ExpiredLife * -1)
     If ArchiveInactive = "Yes" Then dtDocument.AdjustDay(DocumentLife * -1)

'open the archive database

     On Error Resume Next
     Set dbArchive = New NotesDatabase(ArchiveServer,ArchivePath)
     If Err = 4060 Then Goto ErrNoDBAccess

     If Not (dbArchive.IsOpen) Then
          Messagebox "Unable to open archive database.",16,"Error"
          Exit Sub
     End If

     'see if we are logging documents, if we are, then create the first one
     If ArchiveLog = "Yes" Then CreateLogDocument
     'process the documents in the database
     'this finds all documents that needs to be archived, archives them, logs them (if necessary), and removes them from this database
     ProcessDocuments
     'mark the log documents in terms of x out of y
     If ArchiveLog = "Yes" Then MarkLogDocuments
     Exit Sub

ErrNoDBAccess:
     Messagebox "You do not have access to the archive database.  Please contact the database manager to have your name added to the Access Control List.", 0, "Database Access Error"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:GetProfileSettings:1:8
Sub GetProfileSettings
     'reads the profile document
     Set view = dbSource.GetView("Archiving")
     key = "Archive Profile"
     Set docProfile = view.GetDocumentByKey(key,False)
     If docProfile Is Nothing Then
          'there is no profile document so exit
          DoNotRun = True
     Elseif docProfile.ArchivePath(0) = "" Then
          'there is no archive database
          Msgbox "You need to specify a location for the archive database.",16,"Error"
          DoNotRun = True
     Else
          DoNotRun = False
          ArchiveExpired = docProfile.ArchiveExpired(0)
          ArchiveInactive = docProfile.ArchiveInactive(0)
          DocumentLife = docProfile.DocumentLife(0)
          ExpiredLife = docProfile.ExpiredLife(0)
          ArchiveServer = docProfile.ArchiveServer(0)
          ArchivePath = docProfile.ArchivePath(0)
          ArchiveLog = docProfile.ArchiveLog(0)
          IncludeDocLinks = docProfile.IncludeDocLinks(0)
     End If
End Sub
'++LotusScript Development Environment:2:2:CreateLogDocument:1:8
Sub CreateLogDocument
     'creates a new log document, incrementing the counter
     Set docLog = New NotesDocument(dbSource)
     Set rtitem = New NotesRichTextItem(docLog, "Body")
     docLog.Form = "Archive Log"
     dtNow.SetNow
     docLog.ArchiveDate = dtNow.LSLocalTime
     docLog.ProtectFromArchive = 1
     docLog.ExcludeFromView = "D"
     docLog.From = "Archiving"
     docLog.Categories = "(Archive)"
     docLog.ReplaceItemValue "_ViewIcon", 22
     nLogItems = nLogItems + 1
     'see if we need to redim the array
     If nLogItems Mod 6 = 0 Then Redim Preserve nidArray(nLogItems + 4)
End Sub
'++LotusScript Development Environment:2:2:ProcessDocuments:1:8
Sub ProcessDocuments
     'get a handle to all of the documents in the database
     Set docsCollection = dbSource.AllDocuments
     numDocs = docsCollection.Count
     For i =1 To numDocs
          Set docSource = docsCollection.GetNthDocument(i)
          'see if this document can be archived
          EvaluateDocument
          If DocCanBeArchived Then
               'archive this document
               ArchiveDocument
               If ArchiveLog = "Yes" Then AddDocumentToLog
               docSource.Remove True
          End If
          'see if we have hit the maximum number of entries in a log document; if so close the existing one and create a new one
          If (numDocsArchived Mod MAXARCHIVEITEMS = 0) And (numDocsArchived > 0) Then
               If ArchiveLog = "Yes" Then
                    CloseLogDocument
                    CreateLogDocument
               End If
          End If
     Next
     'we are done processing all of the documents, close the last log document (if necessary)
     If ArchiveLog = "Yes" Then CloseLogDocument
End Sub
'++LotusScript Development Environment:2:2:EvaluateDocument:1:8
Sub EvaluateDocument
     'checks to see if a document should be archived or not
     DocCanBeArchived = False
     'see if this document is protected from archiving
     If docSource.HasItem("ProtectFromArchive") Then
          If docSource.ProtectFromArchive(0) = 1 Then Exit Sub
     End If

'look for a $NoPurge item; if it is a date, compare it to today;
     If (docSource.HasItem("$NoPurge")) Then
          Set Purge = docSource.GetFirstItem("$NoPurge")
          If (Purge.Type = DATETIMES) Then
               Set enddt = New NotesDateTime("")
               Set enddt = Purge.DateTimeValue
               Set nowdt = New NotesDateTime("")
               nowdt.SetNow
               If enddt.TimeDifference(nowdt) >= 0 Then Exit Sub
          Else
               Exit Sub
          End If
     End If

     'see if we should archive documents that expire
     If ArchiveExpired = "Yes" Then
          If docSource.HasItem("ExpireDate") Then
               Set item = docSource.GetFirstItem("ExpireDate")
               Set dtCompare = item.DateTimeValue
               If dtCompare Is Nothing Then
                    Set dtCompare = New NotesDateTime("")
                    dtCompare.SetNow
               Else
                    If dtExpired.TimeDifference(dtCompare) >= 0 Then
                         DocCanBeArchived = True
                         Exit Sub ' we exit here so that we don't archive this document again
                    End If
               End If
          End If
     End If
     'see if we should archive documents that are inactive
     If ArchiveInactive = "Yes" Then
          dtCompare.LSLocalTime = docSource.LastAccessed
          If dtDocument.TimeDifference(dtCompare) >= 0 Then DocCanBeArchived = True
     End If
End Sub
'++LotusScript Development Environment:2:2:ArchiveDocument:1:8
Sub ArchiveDocument
     'copies the source document into the archive database
$Archived and DateArchived might already be present, if this agent failed the last
time it was run.  None of these fields should be on the archived copy, because we
don't want the archive database to inadvertantly archive these documents (it can
archive, but it needs to use its own criteria)
%END REM

     If docSource.HasItem("$Archived") Then docSource.RemoveItem("$Archived")
     If docSource.HasItem("DateArchived") Then docSource.RemoveItem("DateArchived")
     If docSource.HasItem("ExpireDate") Then docSource.RemoveItem("ExpireDate")
     FixReaderNames
     docSource.Save True, True
     Set docArchive = docSource.CopyToDatabase(dbArchive)
     docSource.DateArchived = dtNow.LSLocalTime
     Call docSource.AppendItemValue("$Archived", True)
     docSource.Save True, True
     numDocsArchived = numDocsArchived + 1
End Sub
'++LotusScript Development Environment:2:2:FixReaderNames:1:8
Sub FixReaderNames
     'if the reader access fields are blank, remove them
     If docSource.HasItem("Readers") Then
          If docSource.Readers(0) = "" Then docSource.RemoveItem("Readers")
     End If
     If docSource.HasItem("DocumentReaders") Then
          If docSource.DocumentReaders(0) = "" Then docSource.RemoveItem("DocumentReaders")
     End If

End Sub
'++LotusScript Development Environment:2:2:AddDocumentToLog:1:8
Sub AddDocumentToLog
     'only called if a document was archived and logging was enabled
     If IncludeDocLinks = "Yes" Then
          'the user wants a doclink to the new archived document
          Call rtitem.AppendDocLink(docArchive, "DocLink to " & docSource.Subject(0))
          Call rtitem.AddTab(1)
     End If
     Call rtitem.AppendText("     " & docSource.Subject(0) & " (created by " & docSource.From(0) &   " on " &_
     Format(docSource.Created, "Short Date") & ")")
     Call rtitem.AddNewLine(2)
End Sub
'++LotusScript Development Environment:2:2:CloseLogDocument:1:8
Sub CloseLogDocument
     'saves the log document, adds the note id to the array,
     docLog.Save True, True
     nidArray(nLogItems) = docLog.NoteID
End Sub
'++LotusScript Development Environment:2:2:MarkLogDocuments:1:8
Sub MarkLogDocuments
     'finds all of the log documents just created and marks them in terms of x out of y
     For i = 1 To nLogItems
          Set docLog = dbSource.GetDocumentByID(nidArray(i))
          If Not (docLog Is Nothing) Then
               docLog.Subject = "Log Document " &Cstr(i) & " of " & Cstr(nLogItems) & " (" & Format(docLog.Created, "General Date") & ")"
               docLog.LogCount = Cstr(i)
               docLog.LogTotal = Cstr(nLogItems)
               docLog.ArchiveTrailer = "Archive log " & Cstr(i) & "of " & Cstr(nLogItems) & " for documents on server " & _
               ArchiveServer & " from " & dbSource.Title & " (" & dbSource.FilePath & ") to " & dbArchive.Title & _
               " (" & ArchivePath & ") completed sucessfully on " & _
               Format(dtNow.LSLocalTime, "Short Date") & " at " & _
               Format(dtNow.LSLocalTime, "Long Time") & _
               ".  Expired documents are archived after " & ExpiredLife & _
               " days.  All other documents are archived after " & DocumentLife & " days of inactivity."
               docLog.Save True,True
               Call docLog.CopyToDatabase(dbArchive)
          End If
     Next
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Started running agent 'Mail Tools\Create Stationery... | CreateStationery' on 03/10/97 10:55:04 AM
1 document(s) were modified by formula
Done running agent 'Mail Tools\Create Stationery... | CreateStationery' on 03/10/97 10:55:06 AM
TheForm
Create Stationery
Which Form would you like to use to create this Stationery message?
Personal Stationery
    1S2S6S8S10S12S13S14S
MailStEd
    0R1S2S3S
TheForm
    0RR4S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Formula
$TYPE
$Operation
$Scan
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "RepeatProcessing"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim acl As NotesAcl
Dim aclentry As NotesAclEntry
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

     Set ws = New NotesUIWorkspace
     Set uidoc = ws.CurrentDocument
     If Not(uidoc Is Nothing) Then
          Messagebox "You must close all documents before running the ""Delete Repeating..."" action.", 0, "Delete Repeating"
          Exit Sub
     End If

     Set session = New NotesSession
     Set db = session.CurrentDatabase

     Set acl = db.ACL

     Set aclentry = acl.GetEntry(session.Username)
'if not found using distinquished name try with common name
     If aclentry Is Nothing Then
          Set namelookup = New NotesName(session.Username)
          Set aclentry = acl.GetEntry(namelookup.Common)
'if the name is still not found get the default entry
          If aclentry Is Nothing Then Set aclentry = acl.GetFirstEntry
     End If

'you must either be a public user or have Can Delete turn on
     If Not(aclentry.CanDeleteDocuments) And Not(aclentry.IsPublicWriter) Then
          Messagebox "You are not authorized to delete documents in this database.", 0, "Delete Repeating"
          Exit Sub
     End If

     Set documents = db.UnprocessedDocuments

'we can only realistically do this on one doc at a time.  otherwise how does the user know which we are prompting about.
     Set note = documents.GetFirstDocument

'If no doc is selected we don't want to continue
     If note Is Nothing Then
          Messagebox "There is no document selected.", 0, "Delete Repeating Error"
          Exit Sub
     End If

     If note.HasItem("OrgRepeat") Then
          If aclentry.Level = ACLLEVEL_AUTHOR And Not(aclentry.IsPublicWriter) Then
               AuthorList = note.Authors
               IsAuthor = False
               Forall a In AuthorList
                    If a = session.Username Then IsAuthor = True
               End Forall
               If Not(IsAuthor) Then
                    Messagebox "You did not create this repeat set and therefore you can not delete its appointments.", 0, "Delete Repeating"
                    Exit Sub
               End If
          End If
          Action = "Delete"
          Call RepeatSave
     Else
          Messagebox "The selected document is not a repeating appointment.", 0, "Delete Repeating Appointment"
     End If

End Sub
    #~H
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
Declare Sub Postdocumentdelete(Source As Notesuidatabase)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDATABASE
     Set Source = Bind(Objectname_)
     On Event Querydocumentdelete From Source Call Querydocumentdelete
     On Event Postdocumentdelete From Source Call Postdocumentdelete
End Sub
'++LotusScript Development Environment:2:2:Querydocumentdelete:1:12
Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)

End Sub
'++LotusScript Development Environment:2:2:Postdocumentdelete:1:12
Sub Postdocumentdelete(Source As Notesuidatabase)

End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
]\T<R
J3ns4
$DBScript
$DBScript_O
$TITLE
$Flags
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "SharedTaskLibrary"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
     Call UpdateTasks
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
Rq S2
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub NotifySender
Declare Sub Initialize
Declare Sub GetProfile
Declare Sub CheckName
'++LotusScript Development Environment:2:5:(Declarations):0:10
%INCLUDE "lsconst.lss"
Dim s As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim note As NotesDocument
Dim profile As NotesDocument
Dim maildoc As NotesDocument
Dim notifieditem As NotesItem
Dim startdate As NotesItem
Dim enddate As NotesItem
Dim rtitem As NotesRichTextItem
Dim documents As NotesDocumentCollection
Dim dtToday As NotesDateTime
Dim dtCompare As NotesDateTime
Dim deliveredDate As NotesItem
Dim dtStart As NotesDateTime
Dim nam As NotesName
Dim FormName As Variant
Dim AdminType As Variant
Dim ProfileUser As Variant
Dim FirstDayOut As Variant
Dim FirstDayBack As Variant
Dim DaysOut As Variant
Dim GeneralSubject As Variant
Dim GeneralMessage As Variant
Dim SpecialSubject As Variant
Dim SpecialMessage As Variant
Dim SpecialPeople As Variant
Dim IgnorePeople As Variant
Dim AlreadyNotified As Variant
Dim SenderIsSpecial As Variant
Dim Sender As Variant
Dim DoNotRun As Variant
Dim DoNotSend As Variant
Dim domainItem As Variant
'++LotusScript Development Environment:2:2:NotifySender:1:8
Sub NotifySender

'Set object variables for email

     Set maildoc = New NotesDocument(db)
     Set rtitem = New NotesRichTextItem(maildoc, "Body")

'Check to see if this person is on the SpecialPeople list
     SenderIsSpecial = False
     Forall i In SpecialPeople
          If Sender(0) = i Then
               SenderIsSpecial = True
               Exit Forall
          End If
     End Forall

'Build and send the email
     maildoc.Form = "Memo"
     domainItem = note.FromDomain
     maildoc.SendTo = Sender(0)
     If Not (Isempty(domainItem)) And domainItem(0) <> "" Then
          maildoc.SendTo = mailDoc.SendTo(0) & " @ " & domainItem(0)
     End If
     rtitem.AppendText(DaysOut(0))
     rtitem.AddNewLine(2)
     If SenderIsSpecial Then
          maildoc.Subject = SpecialSubject(0)
          rtitem.AppendText(SpecialMessage(0))
     Else
          maildoc.Subject = GeneralSubject(0)
          rtitem.AppendText(GeneralMessage(0))
     End If
     Call maildoc.AppendItemvalue("$AutoForward", True)

'Don't add this person to the Notified list if the message cannot be sent.
'Send may fail if an ambiguous name is supplied
     On Error Goto SendError
     maildoc.Send(False)

'Add this sender to AlreadyNotified list on profile
     notifieditem.AppendToTextList(Sender(0))
     profile.Save True, True

SendError:
     ' Maybe keep track of the people that we couldn't send to?
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

'Set Object Variables
     Set dtToday = New NotesDateTime("")
     dtToday.SetNow
     Set s = New NotesSession
     Set db = s.CurrentDatabase
     Set documents = db.UnprocessedDocuments
     Set view = db.GetView("($Profiles)")
     Set profile = db.GetProfileDocument("OutOfOfficeProfile")

'Get the profile data and be sure that this agent should run today
     DoNotRun = False
     GetProfile
     If DoNotRun Then Exit Sub

     Set dtStart = startdate.DateTimeValue

'Get each doc, check if sender has been notified yet, if not then notify them
     For n = 1 To documents.Count
          Set note = documents.GetNthDocument(n)
          Sender = note.From
'Make sure that we received this message (DeliveredDate) and that it was not automatically generated by someone else' agent ($AutoForward)
          If note.HasItem("DeliveredDate")  And (Not note.HasItem("$AutoForward")) And (Not note.SentByAgent) Then
               Set deliveredDate = note.GetFirstItem("DeliveredDate")
               If deliveredDate.Values(0) <> "" Then
                    Set dtCompare = deliveredDate.DateTimeValue
                    If dtStart.TimeDifference(dtCompare) <= 0 Then
                         CheckName
                         If Not DoNotSend Then
                              NotifySender
                         End If
                    End If
               End If
          End If
          Call s.UpdateProcessedDoc(note)
     Next

End Sub
'++LotusScript Development Environment:2:2:GetProfile:1:8
Sub GetProfile
'
'Get profile document and field values.  If no Profile, inform the user and exit.  We have to check on the existance
'of a couple of fields(we'll choose datein/dateout because of their importance), because if the profile isn't setup, a
'blank default document is created with 3 fields; but not the 2 listed below...
     If (profile Is Nothing) Or (profile.HasItem("dateFirstDayOut") = False) Or (profile.HasItem("dateFirstDayBack") = False) Then
          Set maildoc = New NotesDocument(db)
          maildoc.Form = "Memo"
          maildoc.SendTo = "Email User"
          maildoc.From = "Your Out of Office Agent"
          maildoc.Subject = "Out of Office Agent failed"
          maildoc.Body = "The Out of Office Agent cannot run unless you have created an Out of Office Profile.  " & _
          "Choose ""Actions, Mail Tools, Out of Office"" from the Action menu and fill in the appropriate information."
          maildoc.PostedDate = dtToday.LSLocalTime
          maildoc.DeliveredDate = dtToday.LSLocalTime
          maildoc.Save True, True
          maildoc.PutInFolder("($InBox)")
          DoNotRun = True
          Exit Sub
     Else
          ProfileUser = profile.Sender
     End If

'Be sure the agent is supposed to be running today
     FirstDay = Datevalue(profile.dateFirstDayOut(0))
     LastDay = Datevalue(profile.dateFirstDayBack(0))
     LastTime = Timevalue(profile.dateFirstDayBack(0))
     CurrentDay = Today
     CurrentTime = Time

'If this is the day before you return and within 6 hours of the return time (12AM of the day your return)
'then we consider you back.  This accounts for people who run this agent hourly or daily between 6PM and midnight.
'If this is the day you return or any day after then you are also back.
     If (CurrentDay = LastDay - 1 And _
     CurrentTime >= Timenumber(Hour(LastTime - 6), Minute(LastTime), Second(LastTime))) Or _
     CurrentDay => LastDay Then
          Set maildoc = New NotesDocument(db)
          Set rtitem = New NotesRichTextItem(maildoc, "Body")
          maildoc.Form = "Memo"
          maildoc.SendTo = ProfileUser(0)
'if the profile has this item, we have already sent you a Welcome Back notice.
'but we still need to remind you to turn off your Out of Office agent
          If profile.HasItem("BackInOffice") Then
'we only want to send one reminder per day
               If Datevalue(profile.BackInOffice(0)) < CurrentDay Then
                    maildoc.Subject = "Please disable your OutOfOffice agent"
                    rtitem.AppendText("Please select Actions, Mail Tools, Out Of Office and click " & _
                    "the button entitled ""I Have Returned To The Office"" to disable your Out of Office Agent.")
                    profile.BackInOffice = Today
                    profile.save True, True
                    maildoc.Send(False)
               End If
          Else
               maildoc.Subject = "Welcome Back!"
               rtitem.AppendText("Please select Actions, Mail Tools, Out Of Office and click " & _
               "the button entitled ""I Have Returned To The Office"" to disable your Out of Office Agent.")
               rtitem.AddNewLine(2)
               AlreadyNotified = profile.AlreadyNotified
               If AlreadyNotified(0) <> "" Then
                    rtitem.AppendText("While you were out, your Out of Office Agent " & _
                    "notified the following people of your absence:")
                    rtitem.AddNewLine(2)
                    For i = 0 To Ubound(AlreadyNotified)
                         Set nam = New NotesName(AlreadyNotified(i))
                         rtitem.AppendText(nam.Abbreviated)
                         rtitem.AddNewLine(1)
                    Next
               End If
               maildoc.BackInOffice = True
               profile.BackInOffice = Today
               profile.save True, True
               maildoc.Send(False)
          End If
          DoNotRun = True
          Exit Sub
     End If

     If CurrentDay >= FirstDay Then
'if the agent has been run before we want to remove the Notified list
          If profile.HasItem("BackInOffice") Then
               profile.RemoveItem("BackInOffice")
               profile.RemoveItem("AlreadyNotified")
               profile.save True, True
          End If
     Else
'if today is ealier that FirstDayOut then we don't want to run the agent
          DoNotRun = True
          Exit Sub
     End If

     If profile.HasItem("AlreadyNotified") Then
          Set notifieditem = profile.GetFirstItem("AlreadyNotified")
     Else
          Set notifieditem = New NotesItem(profile, "AlreadyNotified", "")
     End If
     Set startdate = profile.GetFirstItem("dateFirstDayOut")
     Set enddate = profile.GetFirstItem("dateFirstDayBack")
     DaysOut = profile.DaysOut
     GeneralSubject = profile.GeneralSubject
     GeneralMessage = Profile.GeneralMessage
     SpecialSubject = profile.SpecialSubject
     SpecialMessage = profile.SpecialMessage
     SpecialPeople = profile.SpecialPeople
     IgnorePeople = profile.IgnorePeople

End Sub
'++LotusScript Development Environment:2:2:CheckName:1:8
Sub CheckName
     DoNotSend = False

'If the email is from yourself, don't notify sender
     If Sender(0) = ProfileUser(0) Then
          DoNotSend = True
          Exit Sub
     End If

'See if sender was already notified
     AlreadyNotified = profile.AlreadyNotified
     Forall a In AlreadyNotified
          If Sender(0) = a Then
               DoNotSend = True
               Exit Sub
          End If
     End Forall

'See if sender should be ignored
     Forall i In IgnorePeople
          If Sender(0) = i Then
               DoNotSend = True
               Exit Sub
          End If
     End Forall

End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub ArchiveDocument
Declare Sub ProcessDocuments
Declare Sub Terminate
'++LotusScript Development Environment:2:5:(Declarations):0:10
%INCLUDE "lserr.lss"
%INCLUDE "lsxbeerr.lss"
%INCLUDE "lsconst.lss"
Dim w As NotesUIWorkspace
Dim s As NotesSession
Dim sourcedb As NotesDatabase
Dim archivedb As NotesDatabase
Dim note As NotesDocument
Dim newnote As NotesDocument
Dim lognote As NotesDocument
Dim profile As NotesDocument
Dim documents As NotesDocumentCollection
Dim responses As NotesDocumentCollection
Dim view As NotesView
Dim dtNow As NotesDateTime
Dim dtExpired As NotesDateTime
Dim dtDocument As NotesDateTime
Dim dtCompare As NotesDateTime
Dim item As NotesItem
Dim rtitem As NotesRichTextItem
Dim CurrentServer As String
Dim ArchiveExpired As Variant
Dim ExpiredLife As Variant
Dim ArchiveInactive As Variant
Dim DocumentLife As Variant
Dim ArchivePath As Variant
Dim ArchiveLog As Variant
Dim IncludeDocLinks As Variant
Dim Archive As Variant
Dim ManualArchive As String
Dim goAgain As Variant
Dim DoNotRun As Variant
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

'IF YOU CHANGE THIS AGENT - CHANGE *Periodic Archive* TO MATCH - THEY ARE NEARLY IDENTICAL
     On Error Goto ErrorRoutine
     On Error 4060 Goto ErrNoDBAccess        'this handles the case where a delegee was added after the creation of the archive database
     On Error ErrObjectVariableNotSet Resume Next

     Dim calprofile As NotesDocument

     Set s = New NotesSession
     Set w = New NotesUIWorkspace
     Set sourcedb = s.CurrentDatabase
     Set view = sourcedb.GetView("Archiving")
     key  = "Archive Profile"
     Set profile = view.GetDocumentByKey(key)

     If profile Is Nothing Then
          If Messagebox("You must set up an archive database before you can archive " &_
          "selected documents.  Would you like to set up an archive database now?",_
          MB_YesNo + MB_IconQuestion, "Archive") = IDYES Then
               Call w.ComposeDocument("", "", "ArchiveProfile")
          End If
          DoNotRun = True
          Exit Sub
     End If

     If Messagebox("Are you sure you want to move these documents to your archive database now?", _
     MB_YesNo + MB_IconQuestion, "Archiving") = IDNo Then
          Messagebox "No documents were archived.", MB_OK, "Archiving"
          DoNotRun = True
          Exit Sub
     End If

     ArchivePath = profile.ArchivePath
     ArchiveServer = Evaluate("@Name([Abbreviate]; ArchiveServer)", profile)
     ArchiveLog = profile.ArchiveLog
     IncludeDocLinks = profile.IncludeDocLinks

     Set dtNow = New NotesDateTime("")
     dtNow.SetNow

     If ArchiveLog(0) = "Yes" Then
          Set lognote = New NotesDocument(sourcedb)
          Set rtitem = New NotesRichTextItem(lognote, "Body")
          lognote.Form = "Archive Log"
          lognote.ArchiveDate = dtNow.LSLocalTime
          lognote.ProtectFromArchive = 1
          lognote.ExcludeFromView = "D"
          lognote.From = "Archiving"
          Call lognote.ReplaceItemValue("_ViewIcon", 22)
     End If

     On Error Resume Next
     Set archivedb = New NotesDatabase(ArchiveServer(0), ArchivePath(0))
     If Err = 4060 Then Goto ErrNoDBAccess

     If archivedb.IsOpen = False Then
          If ArchiveServer(0) = "" Then
               ArchiveFile = ArchivePath(0)
          Else
               ArchiveFile = ArchiveServer(0) & "!!" & ArchivePath(0)
          End If
          Messagebox "The Archive agent was unable to open your archive file - " & ArchiveFile &_
          ".  Please verify that the file exists.", MB_IconStop, "Archiving"
          DoNotRun = True
          Err = 0
          Exit Sub
     End If
     On Error Goto ErrorRoutine

     ProcessDocuments

     Exit Sub

ErrorRoutine:
     Messagebox "Unexpected condition: " & Err & " - " & Error, 0, "Archiving"
     Exit Sub
ErrNoDBAccess:
     Messagebox "You do not have access to the archive database. Please contact the database manager to have your name added to the Access Control List.",0,"Database Access Error"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:ArchiveDocument:1:8
Sub ArchiveDocument

     On Error Goto ErrorRoutine
     On Error ErrObjectVariableNotSet Resume Next
     Dim Purge As NotesItem

$Archived and DateArchived might already be present, if this agent failed the last
time it was run.  None of these fields should be on the archived copy, because we
don't want the archive database to inadvertantly archive these documents (it can
archive, but it needs to use its own criteria)
%END REM

'If this type of form does not get archived then exit
     If note.HasItem("ProtectFromArchive") Then
          ProtectFromArchive = note.ProtectFromArchive
          If ProtectFromArchive(0) = 1 Then Exit Sub
     End If

'look for a $NoPurge item; if it is a date, compare it to today;
     If (note.HasItem("$NoPurge")) Then
          Set Purge = note.GetFirstItem("$NoPurge")
          If (Purge.Type = DATETIMES) Then
               Set enddt = New NotesDateTime("")
               Set enddt = Purge.DateTimeValue
               Set nowdt = New NotesDateTime("")
               nowdt.SetNow
               If enddt.TimeDifference(nowdt) >= 0 Then
                    Messagebox |The document "| & note.Subject(0) & |" could not be archived since the end date has not passed.|,0,"Status"
                    Exit Sub
               End If
          Else
               Exit Sub
          End If
     End If

     If note.HasItem("$Archived") Then note.RemoveItem("$Archived")
     If note.HasItem("DateArchived") Then note.RemoveItem("DateArchived")
     If note.HasItem("ExpireDate") Then note.RemoveItem("ExpireDate")
     note.Save True, True
     Set newnote = note.CopyToDatabase(archivedb)
     note.DateArchived = dtNow.LSLocalTime
     Call note.AppendItemValue("$Archived", True)
     note.Save True, True

     Subject = note.Subject
     CreatedBy = Evaluate("@Name([Abbreviate]; From)", note)
     CreatedDate = note.Created

     If ArchiveLog(0) = "Yes" Then
          If IncludeDocLinks(0) = "Yes" Then
               Call rtitem.AppendDocLink(newnote, "DocLink to " & Subject(0))
               Call rtitem.AddTab(1)
          End If
          Call rtitem.AppendText(Subject(0) & " (created by " & CreatedBy(0) & " on " &_
          Format(CreatedDate, "Short Date") & ")")
          Call rtitem.AddNewLine(2)
          lognote.Save True, True
     End If

     Exit Sub

ErrorRoutine:
     Messagebox "Unexpected condition: " & Err & " - " & Error
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:ProcessDocuments:1:8
Sub ProcessDocuments

     On Error Resume Next

     Print "Archiving selected documents..."

     Set documents = sourcedb.UnprocessedDocuments
     If documents.Count > 0 Then
          For n = 1 To documents.Count
               Set note = documents.GetNthDocument(n)
               ArchiveDocument
          Next
     End If

'Loop through all the documents that we archived and archive their reponses
     Do
          Set documents = sourcedb.Search("@IsAvailable($Archived)", Nothing, 0)
          goAgain = False
          For n = 1 To documents.count
               Set note = documents.GetNthDocument(n)
               Call note.RemoveItem("$Archived")
               If Err = 0 Then
                    note.Save True, True
                    Set responses = note.Responses
                    If responses.Count > 0 Then
                         For i = 1 To responses.Count
                              Set note = responses.GetNthDocument(i)
                              If Not note.HasItem("$Archived") Then ArchiveDocument
'Since we just archived a response, we have to loop back through in order to archive all of its reponses
                              goAgain = True
                         Next
                    End If
               Else
                    Err = 0
               End If
          Next
     Loop While goAgain

End Sub
'++LotusScript Development Environment:2:2:Terminate:1:10
Sub Terminate

     If DoNotRun Then Exit Sub

     On Error Goto ErrorRoutine
     On Error ErrObjectVariableNotSet Resume Next
     On Error lsERR_NOTES_CANTREMOVE Resume Next

     Set documents = sourcedb.Search("@IsAvailable(DateArchived)", Nothing, 0)
     ArchiveCount = documents.Count
     For n = 1 To ArchiveCount
          Set note = documents.GetNthDocument(n)
          note.Remove(True)
     Next
     If Err = 4241 Then
          Err = 0
          Messagebox "The open document was copied to the archive database, but it could not be deleted.  " &_
          "Please delete it manually.", 0, "Could not delete"
     End If

     If ArchiveLog(0) = "" Then Exit Sub

     ArchiveTitle = archivedb.Title
     dtNow.SetNow
     If CurrentServer = "" Then CurrentServer = "Local"
     lognote.Subject = "Archive Log for " & Format(dtNow.LSLocalTime, "General Date")

     lognote.ArchiveTrailer = "Archive of " & ArchiveCount & " documents on server " & _
     CurrentServer & " from " & sourcedb.Title & " (" & sourcedb.FilePath & ") to " & ArchiveTitle & _
     " (" & ArchivePath(0) & ") completed sucessfully on " & _
     Format(dtNow.LSLocalTime, "Short Date") & " at " & _
     Format(dtNow.LSLocalTime, "Long Time") & "."
     lognote.Save True, True
     Call lognote.CopyToDatabase(archivedb)

     w.ViewRefresh

     If ArchiveCount = 1 Then
          Messagebox ArchiveCount & " document was archived.", MB_OK, "Archiving"
     Else
          Messagebox ArchiveCount & " documents were archived.", MB_OK, "Archiving"
     End If
     Print

     Exit Sub

ErrorRoutine:
     Messagebox "Unexpected condition: " & Err & " - " & Error
     Exit Sub

End Sub
W4Y4Y
YLZX[
h"h"8,
#H$T-
$H%8/
($(&p/
$('d0
%h&<2
'H)86
)h),8
(*(*,:
*h/<;
,h1p=
,H.P>
-h.H@
H/H0@C
/H6 D
1H1pF
1h3TG
2h2HH
(2(2xH
H4H4pL
5(6HO
h6(7$P
7(;\R
(8(9PS
8H90T
H9H=XU
9h:<V
<(=TZ
=(>L]
>h?p_
?(AHa
@HA(c
A(Bdc
(C(C`g
C(D8h
E(G j
(EhE4j
EhF|j
F(Hlk
G(Ill
H(J(m
HHIHm
IhR0n
KhL8o
LHM8q
M(MTq
MXR$r
]$[$[
YD]dY
hZp{a
N+4N$
V}$w#
N,LW}
S,PX#
QQ|X}
Q,dY}\
Q,dY}
ZKTY-(Z#
NLZT\Z'
ZShZ^LZ%
Q,dY}
Q,dY}H
Q,dY}h
Q,$[}
P-t\#
QKXR,
QKXR,
Q-D]#
^x]48
QKhR,
Q,dY}
]KXR-
QKXR,
S,PX#
QQtZ}
QQ<^}l
P-H^#
N,l^#
ArchiveServer
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
k6!;GC(
On00WR
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Started running agent 'Mail Tools\Delegation Profile...' on 05/23/96 09:30:02 AM
0 document(s) were modified by formula
Done running agent 'Mail Tools\Delegation Profile...' on 05/23/96 09:30:03 AM
Mail Tools\Delegation Profile... | EditDelegationProfile
E4fL3
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
Mail Tools\Choose Letterhead... | Select Letterhead303
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##################
Mail Tools\Out of Office... | Out Of Office303
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################
Empty Trash | Empty Trash303
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################
Mail Tools\Add Sender to Address Book | AddToAddressBook
E4fL3
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
CN=Ryan Jansen/O=Irise:\notefile\mail45.ntf
CN=Ryan Jansen/O=Iris
########################################################
_Archiving|Archiving
Archive Logs
Archive Profile
    6S9S11S
$75$74Subject$Conflict
Archive
    L1S5S1(
$75$74Subject
Archive Logs
Archive Profile
    6S9S11S$74
SubjectDescription&
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################
##########################################################
##########################################################
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub GetAclEntries
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim acl As NotesACL
Dim aclentry As NotesAclEntry
Dim nextaclentry As NotesAclEntry
Dim profile As NotesDocument
Dim db As NotesDatabase
Dim session As NotesSession
Dim ws As NotesUIWorkspace
Dim ReadCal() As Variant
Dim WriteCal() As Variant
Dim ReadMail() As Variant
Dim WriteMail() As Variant
Dim EditMail() As Variant
Dim DeleteMail() As Variant
Dim OtherUsers() As Variant
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

     Set session = New NotesSession
     Set db = session.CurrentDatabase
     Set acl = db.ACL
     Set profile = db.GetProfileDocument("DelegationProfile")
     Set ws = New NotesUIWorkspace

     GetAclEntries

     profile.save True, True, True

     ws.EditProfile("DelegationProfile")

End Sub
'++LotusScript Development Environment:2:2:GetAclEntries:1:8
Sub GetAclEntries

     profile.ReadCalendar = ""
     profile.WriteCalendar = ""
     profile.ReadMail = ""
     profile.WriteMail = ""
     profile.EditMail = ""
     profile.DeleteMail = ""

     Redim ReadCal(0)
     Redim WriteCal(0)
     Redim ReadMail(0)
     Redim WriteMail(0)
     Redim EditMail(0)
     Redim DeleteMail(0)
     Redim OtherUsers(0)

     Set aclentry = acl.GetFirstEntry
     Do Until aclentry Is Nothing
          Select Case aclentry.Level
          Case ACLLEVEL_NOACCESS
               If aclentry.Name = "-Default-" Then
                    If aclentry.IsPublicReader Then
                         profile.PublicRead = "1"
                    Else
                         profile.PublicRead = ""
                    End If
                    If aclentry.IsPublicWriter Then
                         profile.PublicWrite = "1"
                    Else
                         profile.PublicWrite = ""
                    End If
               Else
                    If aclentry.IsPublicReader Or aclentry.IsPublicWriter Then
                         If aclentry.IsPublicReader Then
                              x = Ubound(ReadCal)
                              ReadCal(x) = aclentry.Name
                              Redim Preserve ReadCal(x + 1)
                         End If
                         Gosub CheckPublicWriter
                    Else
'These are other NoAccess people and we don't want to change them
                         x = Ubound(OtherUsers)
                         OtherUsers(x) = aclentry.Name
                         Redim Preserve OtherUsers(x + 1)
                    End If
               End If
          Case ACLLEVEL_READER
               x = Ubound(ReadMail)
               ReadMail(x) = aclentry.Name
               Redim Preserve ReadMail(x + 1)
               Gosub CheckPublicWriter
          Case ACLLEVEL_AUTHOR
               If aclentry.CanCreateDocuments Then
                    x = Ubound(WriteMail)
                    WriteMail(x) = aclentry.Name
                    Redim Preserve WriteMail(x + 1)
               End If
               If aclentry.CanDeleteDocuments Then
                    x = Ubound(DeleteMail)
                    DeleteMail(x) = aclentry.Name
                    Redim Preserve DeleteMail(x + 1)
               End If
               Gosub CheckPublicWriter
          Case ACLLEVEL_EDITOR
               x = Ubound(EditMail)
               EditMail(x) = aclentry.Name
               Redim Preserve EditMail(x + 1)
               If aclentry.CanDeleteDocuments Then
                    x = Ubound(DeleteMail)
                    DeleteMail(x) = aclentry.Name
                    Redim Preserve DeleteMail(x + 1)
               End If
               Gosub CheckPublicWriter
          Case Else
'These are Manager and Designers and we don't want to change them
               x = Ubound(OtherUsers)
               OtherUsers(x) = aclentry.Name
               Redim Preserve OtherUsers(x + 1)
          End Select
          Set aclentry = acl.GetNextEntry(aclentry)
     Loop

     profile.ReadCalendar = ReadCal
     profile.WriteCalendar = WriteCal
     profile.ReadMail = ReadMail
     profile.WriteMail = WriteMail
     profile.EditMail = EditMail
     profile.DeleteMail = DeleteMail

     Exit Sub

CheckPublicWriter:
     If aclentry.IsPublicWriter Then
          x = Ubound(WriteCal)
          WriteCal(x) = aclentry.Name
          Redim Preserve WriteCal(x + 1)
     End If
     Return

End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
GOLAu
Started running agent 'Mail Tools\Choose Letterhead... | Select Letterhead' on 03/11/97 09:55:15 AM
1 document(s) were modified by formula
Done running agent 'Mail Tools\Choose Letterhead... | Select Letterhead' on 03/11/97 09:55:16 AM
(LetterHeadChooser)
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
Y    KDM<
$TITLE
$Formula
$TYPE
$Operation
$Scan
OutOfOfficeProfile
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Formula
$TYPE
$Operation
$Scan
DontShowTrash
    6S7S9S11S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Formula
$TYPE
$Operation
$Scan
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Function IsInternetAddress(address As String) As Integer
Declare Function Deflate(s As String) As String
Declare Function FixFullName(full As String) As String
Declare Function GetInternetFullName(fromString As String) As String
Declare Function GetFirst(full As String) As String
Declare Function GetLast(full As String) As String
Declare Function Abbreviate(fromString As String, full As String) As String
Declare Function GetAttribute(theString As String, theAttribute As String) As String
'++LotusScript Development Environment:2:5:(Declarations):0:10
'-----------------------------------------------------------------------------
' MsgBox parameters
'-----------------------------------------------------------------------------
Public Const MB_OK = 0                         ' OK button only
Public Const MB_OKCANCEL = 1           ' OK and Cancel buttons
Public Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
Public Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
Public Const MB_YESNO = 4              ' Yes and No buttons
Public Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
Public Const MB_ICONSTOP = 16          ' Critical message
Public Const MB_ICONQUESTION = 32      ' Warning query
Public Const MB_ICONEXCLAMATION = 48   ' Warning message
Public Const MB_ICONINFORMATION = 64   ' Information message
Public Const MB_APPLMODAL = 0         ' Application Modal Message Box
Public Const MB_DEFBUTTON1 = 0       ' First button is default
Public Const MB_DEFBUTTON2 = 256       ' Second button is default
Public Const MB_DEFBUTTON3 = 512       ' Third button is default
Public Const MB_SYSTEMMODAL = 4096     ' System Modal
'-----------------------------------------------------------------------------
' MsgBox return values
'-----------------------------------------------------------------------------
Public Const IDOK = 1                  ' OK button pressed
Public Const IDCANCEL = 2              ' Cancel button pressed
Public Const IDABORT = 3               ' Abort button pressed
Public Const IDRETRY = 4               ' Retry button pressed
Public Const IDIGNORE = 5              ' Ignore button pressed
Public Const IDYES = 6                 ' Yes button pressed
Public Const IDNO = 7                  ' No button pressed
Const NOTES = "1"
Const CCMAIL = "2"
Const INTERNET = "5"
Const X400 = "4"
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

     Dim session As New NotesSession
     Dim db As NotesDatabase
     Dim docCount, actualCount As Integer
     Dim noteList As NotesDocumentCollection

     AddressBook = session.GetEnvironmentString("NAMES", True)
     If AddressBook = "" Then AddressBook = "names.nsf"

     CommaLocation = Instr(AddressBook, ",")
     If CommaLocation > 0 Then AddressBook = Left(AddressBook, CommaLocation-1)
     Dim addressDb As New NotesDatabase( "", AddressBook )
     If Not addressDB.IsOpen Then
          Messagebox "Unable to locate your Name & Address Book.  Name not added.", MB_ICONSTOP, "Add Sender to Address Book"
          Exit Sub
     End If

     actualCount = 0

     Set db = session.CurrentDatabase
     Set noteList = db.UnprocessedDocuments

     docCount = noteList.Count
     If docCount > 1 Then
          Dim alreadyAdded List As String
     End If

     Dim i As Integer
     i = 0

     Dim note As NotesDocument

     Set note = noteList.GetFirstDocument

     Do While Not (note Is Nothing)

          i = i + 1
          Print "Processing document " + Str(i) + " of " + Str(docCount)

          Dim fromItem, domainItem As Variant

          fromItem = note.From
          domainItem = note.FromDomain

          Dim first, last, full As String
          Dim mailAddress As String

          Dim addressType As String
          Dim pos As Integer

          last = ""
          mailAddress = fromItem(0)
          addressType = ""

     ' Is it a cc:Mail address?
          pos = Instr(fromItem(0), " at ")
          If pos <> 0 Then
               addressType = CCMAIL
               full = Left(fromItem(0), pos - 1)
               Goto gotFullName
          End If

          ' Guess whether this is an internet address or and X.400/Notes address

          If IsInternetAddress(fromItem(0)) Then
               ' It's an Internet address
               full = GetInternetFullName(fromItem(0))
               addressType = INTERNET
          Else
               ' See if there are any slashes at all in the address
               pos = Instr(fromItem(0), "/")

               If pos = 0 Then
                    full = fromItem(0)
                    addressType = NOTES
               Else

                   ' Check to see if this is a canonical name
                    full = GetAttribute(fromItem(0), "CN")

                   ' If there are no /P and /A attributes, guess that this is a Notes address
                    If pos = 0 Or (full <> "" And GetAttribute(fromItem(0), "/P") = "" And GetAttribute(fromItem(0), "/A") = "") Then
                   ' It's a Notes address
                         addressType = NOTES
                    Else
                         addressType = X400
                         first = GetAttribute(fromItem(0), "/G")
                         last = GetAttribute(fromItem(0), "/S")

               ' try to get the common name, if it isn't there, make it from first and last name
                         full = GetAttribute(fromItem(0), "/CN")
                         If full = "" Then
                              If first <> "" Then
                                   full = first + " " + last
                              Else
                                   full = last
                              End If
                         End If
                    End If
               End If
          End If


gotFullName:

          ' if last is not empty then the name has already been parsed
          If last = "" Then
               full = Deflate(full)
               full = FixFullName(full)

               first = GetFirst(full)
               last = GetLast(full)
          End If ' last <> ""

          If addressType = NOTES Then
               full = fromItem(0)
               mailAddress = full
          End If

          ' If this person has already been added or it's you, skip it
          If Iselement(alreadyAdded(full)) Goto nextDocument

          Dim fullname As New notesname(full)

          If Not addressDB.IsOpen Then Call addressDB.Open( "", AddressBook )
          If addressDB.IsOpen Then

               Dim view As NotesView

               Set view = addressDb.GetView("($People)")
               If view Is Nothing Then
               ' tell them you cannot check
               Else
                    Dim tempDoc As NotesDocument
                    Dim searchKeys As String
                    searchKeys = Left(last, 1)
                    Set tempDoc = view.GetDocumentByKey(searchKeys)
                    NameFound = False
                    Do Until tempdoc Is Nothing
                         If tempDoc.FullName(0) = fullname.Canonical Then
                              NameFound = True
                              Exit Do
                         Else
                              Set tempDoc = view.GetNextDocument(tempDoc)
                              If tempDoc Is Nothing Then Exit Do
                              If Left(tempDoc.LastName(0), 1) <> searchKeys Then Exit Do
                         End If
                    Loop

                    If NameFound Then
                         ' Don't prompt if we are doing 10 people or more, chances are that this will be an unattended operation. Default to no.
                         If docCount > 10 Goto nextDocument
                         If Messagebox (first & " " & last + " is already in your personal address book. Are you sure you want to add this address?", MB_YESNO+MB_ICONQUESTION, _
                         "Name already exists") = IDNO Then
                              alreadyAdded(full) = "1'"
                              Goto nextDocument
                         End If

                    End  If ' NameFound

               End If ' not view is nothing
               Dim newnote As New NotesDocument(addressDB)
               newnote.Form = "Person"
               newnote.Type = "Person"
               newnote.FirstName = first
               newnote.LastName = last

               newnote.FullName = fullname.Canonical
               newnote.MailAddress = mailAddress

               If domainItem(0) <> "" Then
                    newnote.MailAddress = newnote.MailAddress(0)  + " @ " + domainItem(0)
               End If
               newnote.MailSystem = addressType

               'newnote.MailDomain = domainItem(0)
               'Select Case addressType
               'Case CCMAIL
                    'newNote.ccMailAddress = mailAddress
                    'newNote.ccMailDomain = domainItem(0)
               'Case INTERNET
                    'newNote.InternetAddress = mailAddress
                    'newNote.InternetDomain = domainItem(0)
               'Case X400
                    'newNote.X400Address = mailAddress
                    'newNote.X400Domain = domainItem(0)
               'End Select

               If newnote.save(True, True) Then
               ' If we are only doing one document, tell them who we added
                    If docCount = 1 Then Messagebox first & " " & last + " has been added to your personal address book.", MB_OK, "Name added"
                    actualCount = actualCount + 1
                    alreadyAdded(full) = "1"
               Else
                    Messagebox "Cannot save "+first & " " & last+" in personal address book " & AddressBook & ".", MB_ICONSTOP, "Name not added"
                    Exit Do
               End If
          Else ' addressDb.IsOpen
               Messagebox "Cannot open personal address book " & AddressBook & ".", MB_ICONSTOP, "Name not added"
               Exit Sub
          End If
nextDocument:
          Set note = noteList.GetNextDocument(note)
     Loop
     If docCount > 1 Then
          Dim tempString As String
          If actualCount = 1 Then tempString = " person was" Else tempString = " people were"
          Messagebox Str(actualCount) + tempString + " added to your personal address book.", MB_OK, "Names added"
     End If
End Sub
'++LotusScript Development Environment:2:1:IsInternetAddress:1:8
Function IsInternetAddress(address As String) As Integer
     ' Return 0 through n, depending on how sure we are this is an Internet address
     IsInternetAddress = 0
     If address Like "*@*[! ].[! ]*" Then IsInternetAddress = IsInternetAddress + 1
End Function
'++LotusScript Development Environment:2:1:Deflate:1:8
Function Deflate(s As String) As String
     ' Remove all excess spaces from the string s
     Dim newString As String
     newString = ""
     s = Trim(s)
     Do While s <> ""
          If Left(s, 1) <> " " Then
               newString = newString + Left(s, 1)
               s = Mid(s, 2)
          Else
               newString = newString + " "
               ' Eat all the spaces
               Do While Left(s, 1) = " "
                    s = Mid(s, 2)
               Loop
          End If
     Loop
     Deflate = newString
End Function
'++LotusScript Development Environment:2:1:FixFullName:1:8
Function FixFullName(full As String) As String
     ' Put a name string in the format: FIRST [MIDDLE] LAST [, SUFFIX]
     ' Assume that the string has no excess spaces

     Dim after As String
     Dim pos As Integer

     pos = Instr(full, ",")
     If pos <> 0 Then
          after = Trim(Mid(full, pos + 1))
          ' Is the string after the comma not a last namesuffix?
          If Not (Lcase(after) Like "jr*,sr*, II*") Then
               full = Trim(Left(full, pos - 1))
               full = after + " " + full
          End If
     Else
          pos = Instr(full, ".")
          If pos <> 0 Then
               after = Trim(Mid(full,pos+1))
               full = Left$(full, pos-1) + " " + after
          Else
               pos = Instr(full, "_")
               If pos <> 0 Then
                    after = Trim(Mid(full,pos+1))
                    full = Left$(full,pos-1) + " " + after
               End If
          End If
     End If

     FixFullName = full

End Function
'++LotusScript Development Environment:2:1:GetInternetFullName:1:8
Function GetInternetFullName(fromString As String) As String
     Dim pos As Integer
     Dim full As String

     Const QUOTE = """"

     ' Look for parenthesis e.g. [e-mail] ("Peter O'Leary")
     pos = Instr(fromString, "(")
     If pos = 0 Then
          ' no parens, just get the username
          pos = Instr(fromString, "@")
          full = Trim(Left(fromString, pos - 1))
          pos = Instr(full, "<")
          If pos>0 Then
               If Trim(Left(full, pos-1)) <> "" Then
                    full = Trim(Left(full, pos-1))
               Else
                    full = Right(full,Len(full)-1)
               End If

               If Left(full,1) = QUOTE And Right(full,1) = QUOTE Then
                    full = Right(full,Len(full)-1)
                    full = Left(full,Len(full)-1)
               End If
          End If
     Else
          full = Mid(fromString, pos + 1)

          ' If the string is quoted, get everything in the quotes
          If Left(full, 1) = """" Then
               full = Mid(full, 2)
               pos = Instr(full, """")
          Else
               pos = Instr(full, ")")
          End If

          full = Left(full, pos - 1)
     End If
     GetInternetFullName = full
End Function
'++LotusScript Development Environment:2:1:GetFirst:1:8
Function GetFirst(full As String) As String
     Dim spacePos As Integer
     spacePos = Instr(full, " ")
     If spacePos <> 0 Then
          GetFirst = Trim(Left(full, spacePos))
     Else
          GetFirst = ""
     End If
End Function
'++LotusScript Development Environment:2:1:GetLast:1:8
Function GetLast(full As String) As String

     ' Get the lastname from a string
     ' Assume that the string is already formated as: FIRST [MIDDLE] LAST [, SUFFIX]

     Dim spacePos As Integer

     ' If there is a comma, chop off everything after it
     spacePos = Instr(full, ",")
     If spacePos <> 0 Then
          full = Left(full, spacePos - 1)
     End If

     spacePos = Instr(full, " ")

     ' If there are no spaces, get the whole string
     If spacePos = 0 Then
          spacePos = 1
     Else
          ' Make sure we have the last space in the string, assume that there is only one space between words
          Dim nextSpace As Integer
          nextSpace = Instr(spacePos + 1, full," " )
          Do While nextSpace <> 0
               spacePos = nextSpace
               nextSpace = Instr(spacePos + 1, full," " )
          Loop
     End If

     Last = Trim(Mid(full, spacePos))

'if there are any / in the name, get what comes before it
     spacePos = Instr(Last, "/")
     If spacePos > 0 Then
          Last = Trim(Left(Last, spacePos - 1))
     End If

     GetLast = Last

End Function
'++LotusScript Development Environment:2:1:Abbreviate:1:8
Function Abbreviate(fromString As String, full As String) As String
     Dim ou, o As String
     ou = GetAttribute(fromString, "/OU")
     o = GetAttribute(fromString, "/O")

     If ou <> "" Then
          full = full + "/" + ou
     End If
     If o <> "" Then
          full = full + "/" + o
     End If

     Abbreviate = full
End Function
'++LotusScript Development Environment:2:1:GetAttribute:1:8
Function GetAttribute(theString As String, theAttribute As String) As String
     Dim startpos, endpos As Integer
     startpos = Instr(theString, theAttribute+"=")
     If (startpos<>0) Then
          startpos = startpos + Len(theAttribute+"=")
          endpos = Instr(startpos, theString, "/")
          If endpos = 0 Then
               endpos = Len(theString) + 1
          End If
          GetAttribute = Trim(Mid(theString, startpos, endpos - startpos))
     Else
          GetAttribute = ""
     End If
End Function
@    `    d
}|    #}
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Times New Roman
Using Mail
 @  @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
    Creating a Mail Message
    There are three simple forms for creating a new mail message:
    Memo
    - Use this form to create a new message
    Reply
    - Use this form to reply to a message that you have received. This form will work only when you have selected a document to reply to.
    Reply With History
     - This is
    similar to a Reply, except that a copy of the message being replied to will be automatically copied into your new message.
    Before you send a message you must fill in the following information:
     - The primary recipients of the message. The content of the message is directed to them or they must take action on this message.
     - Recipients who will receive a copy of the message, but are not usually required to take action on it.
    bcc:
     - Recipients who will receive a blind copy of this message.
    You can send a message by choosing the "Send" action.
    Calendaring and Scheduling
    This database can also be used to organize your time, keep a list of tasks and meetings, and create the following kinds of information to share with other Mail users:
    Calendar Entry -
    Use the Calendar Entry form for both personal appointments and for scheduling meetings with people. Select the Invitation radio-button to schedule a meeting with others.  You can send meeting announcements, select Required and Optional attendees, and find free time slots for the people whom you invite.
    Bookmark
    - Use this form to send another Mail user a reference to a document. It is most useful when reading documents in a database that is shared with others on a server. For example, if you are reading a Discussion database and find a document that may be of use to someone else, creating a Bookmark message will allow that person to find the document very easily.
    Phone Message
    - Use this form to take a message for another Mail user.
    Task
    - Use this form to remind yourself of something that you need to do, or to ask another person to do something for you. If you send a Task to another Mail user, or to several users, they will be able to notify you when they have completed the Task.
    A special view (see below) has been provided to help you organize your Tasks and Tasks that you have assigned to other people.
    A Calendar Profile will automatically be created for you with default settings.  The Calendar Profile lets you decide who can view your free time schedule as well as define personal Calendar settings.  Use Actions Calendar Tools Calendar Profile to change your Calendar Profile settings.
    Folders and Views
    The following views and folders are provided for you:
Inbox
    Messages that have been sent to you by another Mail user will appear here.
Calendar -
    This view looks like a desktop calendar.  Appointments you have scheduled will be displayed in two day, one week, two week, or one month calendar pages.
    Drafts -
    Messages that you have created and saved, but have not yet sent, will appear here.
    Sent
    - Messages will appear here if you after you have sent them. You can decide whether you want messages saved here automatically or whether you should be asked before a message is saved.
    Trash
    - Messages that you have marked for deletion will appear here.
    Tasks
    - Tasks that you have created for yourself and Tasks that you have assigned to other people will appear here. This view will also help you keep track of which Tasks have been completed and when.
    Meetings
    - Invitations to meetings and responses that people have returned to you will appear here.
    In addition, you can create your own folders and views to help organize your Mail database.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
i.v~g
$INFO
$BODY
_Forward
Categori_zeK
Edit Document
_Move to Folder...
_Remove from Folder...
Setup Archive...L
ArchiveProfile
Server
    1S2S6S
    0R1S2S6S
Server
    0R7S8S11S13S14S15S16S
Archive NowK
Archive Profile
    1S2S
AllDocs
NoCache
($Profiles)
ArchivePath
    0R1S2S8S10S12S14S
AllDocs
Error
You must specify a location for the archive database
    0R3S4S5S6S14S15S
AllDocs2
NoCache
($Profiles)
ArchivePath
Archive Now
Before you can begin archiving documents you need to fill out an Archive Profile.  Please press "Setup Archive...".
    0RR1S2S12S14S16S18S28S30S34S
Archiving
Are you sure you want to move documents to the archive database now?
    0R6S8S11S13S
AlreadyArchived
MailArchived|
Archiving
Since this is the first time you have requested an archive, it may take several minutes.  Do you want to proceed?
Archiving
No documents were archived
    0RR1S2S8S9S11S13S19S21S24S26S32S34S
MailArchived
    0RR1S2S3S
Periodic Archive
    0R4S
Server
    1S2S6S
    0R1S2S6S
Server
    0R7S8S11S13S14S15S16S
Enable Scheduled Archivingf
AllDocs
Archiving
Archive Profile
Archive Now
Before you can begin archiving documents you need to fill out an Archive Profile.  Please press "Setup Archive...".
    1S2S10S12S14S16S20S26S28S32S
Periodic Archive
    0RR4S
Server
    1S2S6S
    0R1S2S6S
Periodic Archive
Server
    0R4S5R12S13S16S18S19S20S21S
Disable Scheduled ArchivingKf
AllDocs
Archiving
Archive Profile
Archive Now
Before you can begin archiving documents you need to fill out an Archive Profile.  Please press "Setup Archive...".
    1S2S10S12S14S16S20S26S28S32S
Periodic Archive
    0RR4S
Server
    1S2S6S
    0R1S2S6S
Periodic Archive
Server
    0R7S8R15S16S19S21S22S23S24S
Open Archive Db...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim s As NotesSession
Dim w As NotesUIWorkspace
Dim sourcedb As NotesDatabase
Dim view As NotesView
Dim profile As NotesDocument
Dim server As String
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     On Error Goto ErrorRoutine
'91 is Object Variable Not Set
     On Error 91 Resume Next
'4412 is the notes database does not exist
     On Error 4412 Goto DatabaseNotExistError

     Set s = New NotesSession
     Set sourcedb = s.CurrentDatabase
     Set view = sourcedb.GetView("($Profiles)")
     key = "Archive Profile"
     Set profile = view.GetDocumentByKey(key)

     If profile Is Nothing Then
          Messagebox "There is no Archive Db for this database.", 0 + 64, "Archive"
          Exit Sub
     End If

     ArchivePath = profile.ArchivePath
     ArchiveServer = profile.ArchiveServer
     If (ArchivePath(0) = "") Then
          Messagebox "The archive database cannot be found. Click on the Setup Archive button to create a new archive database.",16,"Database not found"
          Exit Sub
     End If

     Set w = New NotesUIWorkspace

     Call w.OpenDatabase(ArchiveServer(0), ArchivePath(0), "", "", "1")

     Exit Sub

ErrorRoutine:
     Messagebox "Unexpected condition: " & Err & " - " & Error
     Exit Sub
DatabaseNotExistError:
     Messagebox "The archive database cannot be found. Click on the Setup Archive button to create a new archive database.",16,"Database not found"
     Exit Sub
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
ulSNh
(vE*/
$SCRIPTOBJ_11
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
$SCRIPTOBJ_10
$ViewGlobalScript_O
Bouncy EarthStdNotesLtr1CU3A
Mary LambCN=Lotus Notes Template Development/O=Lotus Notes####################
D3F729BC2029D7188AE991E3D4201966CN=Michael Clark/O=Iris
(Personal Stationery)Personal Stationeryw
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################
(ProcessExistingDbDlg)1DCU
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
255D2116B7BDFECF1769F57E5917AA29Lotus Notes
(Archive Log)Archive LogArchiveLog
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCDw###############################################
Reversed TealStdNotesLtr20CU3
CN=Mussie Shore/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes@
##########################################################
Pencil and GridStdNotesLtr16CU3
CN=Mussie Shore/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
1(AlarmDialog)DCU31
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
Purple StairsStdNotesLtr18CU3
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########
Gray Gradient and LinesStdNotesLtr13CU3
CN=Mussie Shore/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################################
$MoodsMoodsCU3
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
(Delivery Options)DeliveryOptionsCDU31
CN=Don Hatch/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
##########################################################
##########################################################
&Arial
 StdNotesLtr1
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
&;p}L
$TITLE
$INFO
$$ScriptName
$BODY
Times New Roman
VersionOpt|
    6S7S9S14S
$VersionOpt
    0R1S2S3S
SavedOnce
    0R1S2S3S
PostedDate(
    0R1S2S3S
DeliveredDate
    0R1S2S3S
$AutoEditMode
    0R1S2S3S
MailSaveOptions
    0R1S2S3S
VersionOpt
    0R4S
Personal Stationery
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "EmailProcessing"
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
 Personal Stationery'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Postmodechange(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Postmodechange From Source Call Postmodechange
     On Event Querysave From Source Call Querysave
     On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)

     Set ws = New NotesUIWorkSpace
     Set uidoc = source

     Call EmailOpen

End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)

     Call EmailModeChange

End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)

     Call EmailSave(Continue)

End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)

     Call EmailClose(Continue)

End Sub
    Always Hidden:
Principal
CalendarProfile
Owner
    1S2S3S7S
FromPerson memo is from.
    0S0E
    0S0E
Encrypt
    0S0E
DefaultMailSaveOptions
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
Header
    From:
Principal
Principal
FromDomain
FromDomain
FromDomain
FromDomain
    7S10S15S16S18S22S25S29S32S33S37S39S42S43S45S47S48S49S55S58S62S65S71S
FromName
Principal
Principal
    0RR1S2S9S11S15S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom
     on
PostedDateh
PostedDate
    7S9S
tmpDisplayDateTime/date memo was created or mailed.
ReplyDate
ReplyTo
    1S2S3S4S5S6S
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Sent by:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
SendTo
CopyTo
  cc:
CopyTo
    1S2S8S13S14S2E17S18S21S22S28S31S
    To:
SendTo}
    0S0E
SendTo^
No names found to send mail.{
    1S6S7S8S9S11S16S
SendToList of primary people to send memo.
    cc:
CopyTo}
    0S0E
CopyToList of people to send a copy of the memo.
DeliveredDate
BlindCopyTo
(bcc:
BlindCopyTo
    3S4S5S6S7S8S10S11S12S16S18S19S21StmpDisplayBlindCopyTo
    bcc:
BlindCopyTo
    0S0E
BlindCopyToList of undisclosed people to send copies of memo.
    Subject:
PhoneCaller
Phone Call:
PhoneCaller
Subject
    7S8S9S11SSubjectSubject of memo.
$HideMailHeader
    0S0E
$HideMailHeader
Moods
PostedDate
SenderTag
Moods
    7S9S11S13S14S15S16S17S19S20S21S22S25S27S
Footer
Edit Document
ForwardK
    0S0E
New Memo.
    0S0E
Delete
    0S0E
_Move To Folder...
Delivery Information...Kz
DeliveryInfo
Delivery Information
    4S5S6S7S8S9S10S12S
_Forward
Reply
Reply
    0S0E
Reply With History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Address...
    0S0E
PostedDateh
    5S6S7S8S
Close
    0S0E
IsMailStationeryh
PostedDateh
    6S7S
Save As Draft
tmpAction
SaveAsDraft
    1S2S3S
IsMailStationeryh
PostedDateh
    4S5S
Save and File
    7S9S
tmpAction
SaveAndFile
    0R1S2S3S
IsMailStationeryh
PostedDateY
PostedDateh
    4S5S9S10S16S17S18S19S
PromptValue
DefaultMailSaveOptions
Save when sent
Do you wish to save a copy of this Memo?
DefaultMailSaveOptions
    1S2S5S6S8S14S17S
SaveOptions
PromptValue
SaveOptions
PromptValue
    0RR1S2S5S6S9S14S
tmpAction
DefaultMailSaveOptions
Mailing
    0RR1S2S3S6S7S9S11S
MailOptions
    0R1S2S3S
    0R7S9S
tmpAction
SaveOptions
SendAndFile
    0RR1S2S3S6S7S9S11S
    0R7S9S
PostedDateh
IsMailStationeryh
    5S6S7S8S10S11S
Send And File...
tmpAction
DefaultMailSaveOptions
Mailing
    1S2S3S6S7S9S11S
MailOptions
    0R1S2S3S
    0RR7S9S
tmpAction
SendAndFile
    0RR1S2S3S
    0R7S9S
    0R7S9S
PostedDateh
IsMailStationeryh
    5S6S7S8S10S11S
Delivery Options...K
DeliveryOptions
Delivery Options
    4S8S
_ViewIcon
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
    0RR1S2S3S5RS3E6S7S8S9S11S13RS3E14S15S17S19RS3E20S21S23S25RS3E26S27S29S31RS3E32S33S35S37RS3E38S39S41S43RS3E44S45S47S49RS3E50S51S53S55RS3E56S57S59S61RS3E62S63S65S67RS3E68S69S71S73RS3E8
PostedDateh
    5S6S7S8S
Special Options...6
ReplyDate
ReplyDate
    1S2S3S
ReplyTo
ReplyTo
    0R1S2S3S
(Advanced Options)
Special Options
    0R6S10S13S15S
tmpDisplayReplyInfo
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    0R1S2S3S4S5S8S9S11S13S14S15S17S18S21S22S24S26S27S28S
DueDateTime
ReplyDate
ReplyDate
    0R1S2S3S6S7S9S11S
PostedDateh
    5S6S7S8S
Save As Stationery...
tmpAction
SaveAsStationery
    1S2S3S
IsMailStationeryh
    0S0E
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
tmpNewDoc
    1S2S
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpNewDoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpNewDoc
    1S2S
Copy into\New GroupK,
NewGroup
    0S0E
tmpNewDoc
    1S2S
_Remove From Folder...
Categori_zeK
SSend
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$$FormPostOpenAction
$TypeIcon
ExpireDate
ReplyDate
ComposedDate
$TITLE
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$ACTIONS
$SCRIPTOBJ_18
$SCRIPTOBJ_19
$SCRIPTOBJ_20
(ProcessExistingDbDlg)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
     source.RefreshHideFormulas
End Sub
DeleteOptions
Delete the original database|1
    Documents are archived:
ArchiveLocation
Local
    1S2S
    Archive database is on server:
    Archive file:
Local
ArchiveLocation
Locally | LocalOn Server | Server
    0S0E
ArchiveServer
ArchiveLocation
Local
ArchiveServer
ArchiveServer
    4RS4E6R7S8S10RS4E12R13S14S16RS4E20S23R
ArchiveServer
CurrentPath
    1S2S6S
CurrentFile
CurrentPath
    0R1S2S6S
FileOnly
CurrentPath
CurrentFile
Macintosh
CurrentPath
CurrentFile
CurrentPath
CurrentFile
CurrentFile
    0R1S2S8S11S15S18S19S20S21S22S26S29S33S36S37S38S39S40S44S47S51S54S
DirOnly
CurrentPath
CurrentFile
Macintosh
CurrentPath
CurrentFile
CurrentPath
CurrentFile
    0R1S2S8S11S15S17S18S20S21S22S23S24S28S31S35S37S38S40S41S42S43S44S48S51S55S57S58S60S
DirOnly
FileOnly"
CurrentPath
    0RR1S2S5S6S8S10S11S15S
ArchivePath
Please specify the filename of the archive database
    3S4S6S11SArchivePath
    After creating the new archive db:
servers
names.nsf
($ServersLookup)
    1S2S
selectedserver
Server
Please select a server to create your archive database on.
ArchiveServer
servers
    0R1S2S
ArchiveServer
selectedServer
    0R1S2S3S
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
@If(@IsN
CopyOptions
Copy documents from the original archive to the new one|1
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$PublicAccess
Archive Log
Times New Roman
 ArchiveLog
$MessageType
%12-/H
!G,$W,#I4)X6(H,4W,4G98X<6h*#x+$g9)w8(h.6u-2g<5w<4>B=YA
WC9iB.xC-iF8wH8jT>zR<rd?
2L3;FK=Dj=C:FQ8Qp<b
GEHXHGLQLZSKEKUVKSGRYYWWgJEvIEiTHyWFfLRwKSgYWwZV[cXtfYPZjl\dWfphhhvigkqlysjhktvlsjtxyww
Archive Log
LogCount
LogTotal
 for
ArchiveDate
ArchiveTrailer
ArchiveTrailer
    Hidden:
Archive Log for
ArchiveDate
    1S2S
Subject
(Archive)
Categories
Close
    0S0E
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$6).%MS
DocLife
$ManualArchivers_O
ObsoleteLife
DocumentLife
$TITLE
$INFO
$WINDOWTITLE
$$Script_O
$$ScriptName
ArchiveDate
$BODY
$ACTIONS
&Arial
 StdNotesLtr20
tmpDisplayFrom_Previewb
    2S3S
TMPFROM
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$Header
$$ScriptName
$BODY
&Arial
 StdNotesLtr16
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$Header
$$ScriptName
$BODY
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim AlarmDt As NotesDateTime
(AlarmDialog)
tmpBeforeOrAfter
AppointmentType
    3S4S5S6S7S8S9S10S
    Date:
$AlarmTimeh
$AlarmTimeK
    0S0E
AutoSetAdjust
AppointmentType
CalendarProfile
AppointmentLead
AppointmentType
CalendarProfile
AnniversaryLead
AppointmentType
CalendarProfile
EventLead
AppointmentType
CalendarProfile
ReminderLead
    0RR1S2S5S6S10S13S14S17S18S19S20S21S28R29S30S31S32S39S40S41S42S43S50S
AutoNewAdjust
AutoSetAdjust
AutoSetAdjust
AppointmentType
AppointmentType
    0RR1S2S5S6S7S8S10S11S12S18S19S20S23S24S26S
AppointmentType
StartDateTime
AutoNewAdjust
AppointmentType
StartDateTime
AutoNewAdjust
StartDateTime
    0RR10R33R39R62RtmpAlarmOnDate
StartDateTime
StartDateTime
    When:
AppointmentType
    1S2S3S4S5S6S
$AlarmTimeh
$AlarmOffseth
$AlarmOffset
    20S21S23S
AppointmentType
    0R3S4S5S6S8S10StmpBeforeOrAfter
Before|1After|2On|3
tmpBeforeOrAfter
AppointmentType
    3S4S5S6S7S8S9S10S
AutoLead
CalendarProfile
AppointmentLead
    1S2S5S6S
$AlarmOffset[
$AlarmOffset
AutoLead
AutoLead
    0R1S2S9S14S15S16S17S18S
Init[
Init$
    0R7S10S11S13S15S16S18S21StmpAlarmOffset
    Minutes
    Alarm Message:
$AlarmDescription
Subject
$AlarmDescription
    3S4S6S8S
$AlarmDescription
tmpAlarmOff
Turn Alarm Off|1
$AlarmTimeh
$AlarmTimeL
    0S0E
AutoSetAdjust
AppointmentType
CalendarProfile
AppointmentLead
AppointmentType
CalendarProfile
AnniversaryLead
AppointmentType
CalendarProfile
EventLead
AppointmentType
CalendarProfile
ReminderLead
    0RR1S2S5S6S10S13S14S17S18S19S20S21S28R29S30S31S32S39S40S41S42S43S50S
AutoNewAdjust
AutoSetAdjust
AutoSetAdjust
AppointmentType
AppointmentType
    0RR1S2S5S6S7S8S10S11S12S18S19S20S23S24S26S
AppointmentType
StartDateTime
AutoNewAdjust
AppointmentType
StartDateTime
AutoNewAdjust
StartDateTime
    0RR10R33R39R62RtmpAlarmOnTime
    Time:
AppointmentType
    1S2S3S4S
    Set Alarm On:
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
jXVlubA
$AlarmOffest
tmpAlarmOffest
$Alarm
AlarmTime
$AlarmTime
AlarmOn
AlarmOnTime
$AlarmOffset
$FormPublicAccess
$TITLE
$INFO
$Script
$$Script_O
$$ScriptName
tmpAlarmOnDate
tmpAlarmOffset
tmpAlarmOnTime
$BODY
$PublicAccess
&Arial
 StdNotesLtr18
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$ScriptName
$BODY
&Arial
 StdNotesLtr13

tmpDisplayFrom_Preview
tmpFrom

tmpDisplayDate_Preview
tmpDate

O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$Header
$$ScriptName
$BODY
 Moods
    Always Hidden
SenderTag
SenderTag
SenderTag
    1S2S3S4S5S6S
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
%12-/H
!G,$W,#I4)X6(H,4W,4G98X<6h*#x+$g9)w8(h.6u-2g<5w<4>B=YA
WC9iB.xC-iF8wH8jT>zR<rd?
2L3;FK=Dj=C:FQ8Qp<b
GEHXHGLQLZSKEKUVKSGRYYWWgJEvIEiTHyWFfLRwKSgYWwZV[cXtfYPZjl\dWfphhhvigkqlysjhktvlsjtxyww
SenderTag
    0S0E
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
SenderTag
    0S0E
SenderTag
SenderTag
SenderTag
    4S5S8S9S10S11S
@___@
<a>7`^
`!bb!R
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$ScriptName
$BODY
&Arial
 StdNotesLtr5
tmpDisplayFrom_Preview
tmpFrom

tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$ScriptName
$BODY
1(RepeatInfo)CDU31
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################
_Special\Serial Route MemoRoutew
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
Squiggly LineStdNotesLtr23CU3
CN=Paul DiCristina/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
Geometry 1StdNotesLtr9CU3
CN=Mussie Shore/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##
Triangle with Dots 2StdNotesLtr30CU3
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################################
(Advanced Options)UC31
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
1(RepeatForm)UC31
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
D3F729BC2029D7188AE991E3D4201966CN=Michael Clark/O=Iris
_Special\Phone MessagePhone Messagew
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
Wild ConfettiStdNotesLtr32CU3
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########
!X%`P
First InitialStdNotesLtr6CU3
CN=Mussie Shore/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
Falling SpheresStdNotesLtr5CU3
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##
New Appointment
Subject
"Small Fonts
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Postmodechange(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Postopen:1:8
Sub Postopen(Source As Notesuidocument)

End Sub
'++LotusScript Development Environment:2:2:Querysave:1:8
Sub Querysave(Source As Notesuidocument, Continue As Variant)

End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:8
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)

End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:8
Sub Queryclose(Source As Notesuidocument, Continue As Variant)

End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:8
Sub Postrecalc(Source As Notesuidocument)

End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:8
Sub Postmodechange(Source As Notesuidocument)

End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:8
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)

End Sub
(RepeatInfo)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Postmodechange(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Querysave From Source Call Querysave
     On Event Queryopen From Source Call Queryopen
     On Event Queryclose From Source Call Queryclose
     On Event Postrecalc From Source Call Postrecalc
     On Event Postmodechange From Source Call Postmodechange
     On Event Querymodechange From Source Call Querymodechange
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)

End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)

End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)

End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)

End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)

End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)

End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)

End Sub
tmpRealDate
    0S0E
Repeat Info
AppointmentType
    0S0E
    Detailed description:
AppointmentType
    1S2S
AppointmentType
RequiredAttendees
    1S2S3S4S5S6S
    Invitations have been sent to:
RequiredAttendees
    0S0E
tmpSendTo
AppointmentType
OptionalAttendees
    1S2S3S4S8S9S
    Optional invitees:
OptionalAttendees
    0S0E
tmpCopyTo
AppointmentType
    1S2S3S4S5S6S
    Meeting location:
tmpRoom
AppointmentType
RequiredResources
    1S2S3S4S5S6S
    Resources:
Resources
RequiredResources
    0S0E
tmpResources
AppointmentType
chair
    1S2S3S4S5S6S
    Chairperson:
Chair
tmpChairperson
AppointmentType
Principal
    1S2S3S4S5S6S7S8S
    Sent by:
Principal
Principal
    3S4S
tmpSentBy
RepeatIDs
    0S0E
Repeating meeting information:
RepeatUnit
    1S2S
    This meeting repeats
RepeatInterval
tmpRepeatInterval
every|1every 2nd|2every 3rd|3every 4th|4every 5th|5every 6th|6every 7th|7every 8th|8every 9th|9every 10th|10every 11th|11every 12th|12every 13th|13every 14th|14every 15th|15every 16th|16every 17th|17every 18th|18every 19th|19every 20th|20every 21st|21every 22nd|22every 23rd|23every 24th|24every 25th|25every 26th|26every 27th|27every 28th|28every 29th|29every 30th|30every 31st|31
RepeatUnit
tmpRepeatUnit
day|Dweek|Wmonth|MDmonth|MPyear|YDcustom|C
RepeatAdjust
tmpRepeatAdjust
RepeatUnit
 on Sunday|0
 on Monday|1
 on Tuesday|2
 on Wednesday|3
 on Thursday|4
 on Friday|5
 on Saturday|6
RepeatUnit
 on the 1st Sunday|1.0
 on the 1st Monday|1.1
 on the 1st Tuesday|1.2
 on the 1st Wednesday|1.3
 on the 1st Thursday|1.4
 on the 1st Friday|1.5
 on the 1st Saturday|1.6
 on the 2nd Sunday|2.0
 on the 2nd Monday|2.1
 on the 2nd Tuesday|2.2
 on the 2nd Wednesday|2.3
 on the 2nd Thursday|2.4
 on the 2nd Friday|2.5
 on the 2nd Saturday|2.6
 on the 3rd Sunday|3.0
 on the 3rd Monday|3.1
 on the 3rd Tuesday|3.2
 on the 3rd Wednesday|3.3
 on the 3rd Thursday|3.4
 on the 3rd Friday|3.5
 on the 3rd Saturday|3.6
 on the 4th Sunday|4.0
 on the 4th Monday|4.1
 on the 4th Tuesday|4.2
 on the 4th Wednesday|4.3
 on the 4th Thursday|4.4
 on the 4th Friday|4.5
 on the 4th Saturday|4.6
 on the Last Sunday|5.0
 on the Last Monday|5.1
 on the Last Tuesday|5.2
 on the Last Wednesday|5.3
 on the Last Thursday|5.4
 on the Last Friday|5.5
 on the Last Saturday|5.6
RepeatUnit
 on the 1st day|1
 on the 2nd day|2
 on the 3rd day|3
 on the 4th day|4
 on the 5th day|5
 on the 6th day|6
 on the 7th day|7
 on the 8th day|8
 on the 9th day|9
 on the 10th day|10
 on the 11th day|11
 on the 12th day|12
 on the 13th day|13
 on the 14th day|14
 on the 15th day|15
 on the 16th day|16
 on the 17th day|17
 on the 18th day|18
 on the 19th day|19
 on the 20th day|20
 on the 21st day|21
 on the 22nd day|22
 on the 23rd day|23
 on the 24th day|24
 on the 25th day|25
 on the 26th day|26
 on the 27th day|27
 on the 28th day|28
 on the 29th day|29
 on the 30th day|30
 on the 31st day|31
    3S4S6R8R10R12R14R16R18R20RS5E21S22S24R26R28R30R32R34R36R38R40R42R44R46R48R50R52R54R56R58R60R62R64R66R68R70R72R74R76R78R80R82R84R86R88R90R92R94RS5E95S96S98R100R102R104R106R108R110R112R114R116R118R120R122R124R126R128R130R132R134R136R138R140R142R144R146R148R150R152R154R156R158R160S
     starting on
RepeatStartDate
tmpRepeatStartDate
RepeatHow
tmpRepeatHow
until|Ufor|F
RepeatFor
tmpRepeatUnit
    7S9S
RepeatHow
RepeatUntil
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
RepeatFor
month
RepeatForUnit
RepeatFor
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
weeks
RepeatFor
RepeatForUnit
months
RepeatFor
RepeatForUnit
years
    0R3S4S6S10S13S17S18S19S20S23S24S25S26S27S28S30S32S33S34S35S36S37S38S40S42S43S44S45S46S47S48S50S52S53S54S55S56S57S58S60S62S64S65S68S69S70S71S72S73S75S77S78S79S80S81S82S83S85S87S88S89S90S91S92S93S95S97S98S99S100S101S102S103S105S107S
tmpRepeatUntil
RepeatUnit
 (if the date occurs on a weekend the meeting
RepeatWeekends
occurs anyway
RepeatWeekends
is moved to Friday
RepeatWeekends
is moved to Monday
RepeatWeekends
is moved to Nearest Weekday
RepeatWeekends
is deleted
    3S4S5S6S7S8S10S12S13S14R17S18S20S22S23S24S26S28S29S30S32S34S35S36S38S40S41S42S44S46S48S49S
tmpRepeatWeekends
RepeatIds
    0S0E
    Meeting Dates:
RepeatDates
tmpRepeatDates
RepeatDates
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
CompletedOn
EndDate
CalendarDate_Time___Start
CalendarDate_Time___End
CalendarDates
CalendarDate
RepeatDates
CalendarDateTime
EndDateTime
$NoPurge
StartTime
EndTime
StartEndTime
StartDateTime
$FormPublicAccess
$SCRIPTOBJ_23
Duration
StartDate
ReminderTime
TimeRange
_ViewIcon
$SCRIPTOBJ_6
$SCRIPTOBJ_8
$SCRIPTOBJ_9
$SCRIPTOBJ_11
$SCRIPTOBJ_13
$SCRIPTOBJ_21
$SCRIPTOBJ_22
$TITLE
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$PublicAccess
 DeliveryOptions'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
     SenderTag = source.document.tmpSenderTag(0)
     If  SenderTag <> "" And SenderTag <> "N" Then source.document.SenderTag = SenderTag
End Sub
Importance:
Delivery report:
Delivery priority:
SenderTag
    0S0E
Mood stamp:
Importance
Normal|2High|1Low|3
DeliveryReport
Only on failure|BConfirm delivery|CTrace entire path|TNone|N
SenderTag
tmpSenderTag
Normal|NPersonal|PConfidential|CPrivate|RThank You!|TFlame|FGood Job!|GJoke|JFYI|YQuestion|QReminder|M
DeliveryPriority
High|HNormal|NLow|L
SecureMail
    1S2S
    3S4S6S8S
Sign|1
ReturnReceipt
Return receipt|1
Encrypt
Encrypt
    3S4S6S8S
Encrypt
Encrypt|1
$KeepPrivate
Prevent copying|1
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
ExpireDate
ReplyDate
$TITLE
$INFO
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$PublicAccess
Times New Roman
VersionOpt|
    6S7S9S14S
$VersionOpt
    0R1S2S3S
SavedOnce
    0R1S2S3S
PostedDate(
    0R1S2S3S
DeliveredDate
    0R1S2S3S
$AutoEditMode
    0R1S2S3S
MailSaveOptions
    0R1S2S3S
VersionOpt
    0R4S
New Serial Route Memo
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub InstantiateObjectVariables(source)
Declare Sub SaveDialog(SavedDoc)
Declare Function SendToNext(source) As Variant
Declare Sub CheckSecureMail
'++LotusScript Development Environment:2:5:(Declarations):0:10
%INCLUDE "lsconst.lss"
Dim w As NotesUIWorkspace
Dim s As NotesSession
Dim db As NotesDatabase
Dim note As NotesDocument
Dim newnote As NotesDocument
Dim Action As Variant
Dim DocWasSaved
Dim DoNotClose As Variant
Dim ContinueSave As Variant
Dim NewDocument As Variant
'++LotusScript Development Environment:2:2:InstantiateObjectVariables:1:8
Sub InstantiateObjectVariables(source)

     Set w = New NotesUIWorkspace
     Set s = New NotesSession
     Set db = s.CurrentDatabase
     Set note = source.document
     source.AutoReload = False

End Sub
'++LotusScript Development Environment:2:2:SaveDialog:1:8
Sub SaveDialog(SavedDoc)

     SavePrompt = Messagebox("Do you wish to save this " & SavedDoc & "?", MB_YESNOCANCEL, "Save " & SavedDoc)
     Select Case SavePrompt
     Case IDCANCEL
          note.MailOptions = "0"
          DoNotClose = True
          ContinueSave = False
          Exit Sub
     Case IDNO
          note.SaveOptions = "0"
          Exit Sub
     Case IDYES
          note.SaveOptions = "1"
     End Select

End Sub
'++LotusScript Development Environment:2:1:SendToNext:1:8
Function SendToNext(source) As Variant

     CurrentUser = s.UserName
     Originator = note.Originator
     FromName = note.From
     RouteList = note.OriginalRouteList

     If Originator(0) = CurrentUser Then
          note.CurrentSendTo = 0
     Else
          CurrentSendTo = note.CurrentSendTo
          note.CurrentSendTo = CurrentSendTo(0) + 1
     End If

     CurrentSendTo = note.CurrentSendTo
     ListMax = Ubound(RouteList)

     Select Case CurrentSendTo(0)
     Case Is < ListMax
          Remaining = ListMax - (CurrentSendTo(0) + 1)
          Redim tmpList(Remaining)
          x = 0
          For i = (CurrentSendTo(0) + 1) To ListMax
               tmpList(x) = RouteList(i)
               x = x + 1
          Next
          note.RemainingRouteList = tmpList
          note.SendTo = RouteList(CurrentSendTo(0))
     Case Is > ListMax
          note.RemainingRouteList = "None"
          note.SendTo = Originator(0)
     Case ListMax
          note.RemainingRouteList = "None"
          note.SendTo = RouteList(CurrentSendTo(0))
     End Select

     Notify = note.Notify
     If Notify(0) = "1" Then note.CopyTo = Originator(0)

     note.tmpAction = "Mailing"

     source.Reload

     On Error Goto NotSent
     source.Send

     SendToNext = True
     Exit Function

NotSent:
     Messagebox "Unable to send this document.  Please try later.", MB_OK, "Send Error"
     SendToNext = False
     Exit Function

End Function
'++LotusScript Development Environment:2:2:CheckSecureMail:1:8
Sub CheckSecureMail

'If SecureMail = 1 in notes.ini all mail gets Signed and Encrypted and the user is unable to override it
     note.SecureMail = Cstr(s.GetEnvironmentValue("SecureMail", True))
     If note.SecureMail(0) = "1" Then
          Call note.ReplaceItemValue("Sign", "1")
          Call note.ReplaceItemValue("Encrypt", "1")
     End If

End Sub
 Route'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Querysave From Source Call Querysave
     On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)

     Dim cnName As Variant

     If source.InPreviewPane Then Exit Sub
     If note Is Nothing Then Call InstantiateObjectVariables(source)

     cnName = Evaluate("@Name([CN];@Username)")
     If (note.HasItem("PostedDate") Or note.HasItem("DeliveredDate")) And source.EditMode = False And  Instr(Lcase(note.SendTo(0)), Lcase(cnName(0))) = 0 Then
          Exit Sub
     Else
          source.EditMode = True
     End If

     If note.From(0) = s.UserName Or source.IsNewDoc Then
          If Not(note.HasItem("SecureMail")) Then
               CheckSecureMail
               source.reload
          End If
     End If

     EditType = s.GetEnvironmentValue("MailStEd")
     If EditType = "5" Then
          Call note.ReplaceItemValue("$VersionOpt", "6")
          note.tmpAction = "ConvertNewDoc"
          Call s.SetEnvironmentVar("MailStEd", "0")
          source.reload
          source.save
     End If

End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)

     If note Is Nothing Then Call InstantiateObjectVariables(source)

     note.RemoveItem("MailOptions")
     note.RemoveItem("SaveOptions")

     Action = note.tmpAction
     Select Case Action(0)
     Case "SaveAsDraft"
          note.MailOptions = "0"
          note.SaveOptions = "1"
     Case "SendAndFile"
          If SendToNext(source) = False Then Continue = False
          note.SaveOptions = "1"
     Case "Send"
          If SendToNext(source) = False Then Continue = False
          note.SaveOptions = "0"
     Case "Mailing"
'We do not want to do anything if mailing is in process (like from the Send button)
     Case Else
'If this is a message that was not written by you we do not present the mail dialog
          If note.From(0) <> s.UserName Then
               note.MailOptions = "0"
               note.SaveOptions = "1"
               ContinueSave = True
               Call SaveDialog("Document")
               If ContinueSave = False Then
                    Continue = False
                    Exit Sub
               End If
          End If
     End Select

     note.RemoveItem("tmpAction")
     If note.HasItem("$VersionOpt") Then Call note.ReplaceItemValue("$VersionOpt", "0")

     source.Reload

End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)

     If DoNotClose Then
          DoNotClose = False
          Continue = False
     End If

End Sub
,`    }<
    0S0E
    Always Hidden:
Principal
CalendarProfile
Owner
    1S2S3S7S
Principal
Principal
    0R3S4S6S8S
FromPerson memo is from.
DefaultLogo
Gateway
    4S9S13S16S18SLogoPerson memo is from.
    0S0E
    0S0E
Encrypt
    0S0E
DefaultMailSaveOptions
origDomain
ReplyTo
ReplyDate
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    3S4S5S6S7S8S10S12S13S14S17S18S20S22S23S24S26S27S30S31S33S35S36S37S
tmpDisplayReplyInfo
    From:
Principal
Originator
Originator
    1S2S
    Route to (individuals, not groups):
OriginalRouteList
    0S0E
CurrentUser
    1S2S6S
Originator
Originator
    0R1S2S6S
CurrentUser
Originator
OriginalRouteList
CurrentUser
You cannot include yourself in the Route List.{
    0R3S4S5S6S12S15S18S23S
OriginalRouteList
    Remaining route list:
RemainingRouteList
RemainingRouteList
    Current person in route:
SendTo
SendTo
EnRoute
    1S2S
    Subject:
SubjectSubject of memo.
$HideMailHeader
    0S0E
$HideMailHeader
Moods
PostedDate
SenderTag
Moods
    7S9S11S13S14S15S16S17S19S20S21S22S25S27S
Notify
Notify sender at each stop | 1
Edit Document
PostedDateh
    4S5S6S7S
ForwardK
    0S0E
New Memo.
    0S0E
Delete
    0S0E
_Move To Folder...
Delivery Information...Kz
DeliveryInfo
Delivery Information
    4S5S6S7S8S9S10S12S
_Forward
Address...
NewNames
    1S2S4S5S
OriginalRouteList
OriginalRouteList
NewNames
    0R1S2S3S8S9S
PostedDateh
    5S6S7S8S
Close
    0S0E
PostedDateY
    0S0E
Save As Draft
tmpAction
SaveAsDraft
    1S2S3S
PostedDateh
    0S0E
Save and File
    7S9S
tmpAction
SaveAndFile
    0R1S2S3S
PostedDateY
PostedDateh
    4S5S11S12S13S14S
Send to Next PersonKl
    0R7S9S
PromptValue
DefaultMailSaveOptions
Save when sent
Do you wish to save a copy of this Memo?
DefaultMailSaveOptions
    0RR1S2S5S6S8S14S17S
SaveOptions
PromptValue
SaveOptions
PromptValue
    0R1S2S5S6S9S14S
tmpAction
SaveOptions
SendAndFile
    0RR1S2S3S6S7S9S11S
    0R7S9S
PostedDateh
    5S6S7S8S
Send And File...V
    4S11S13S19S
    0R7S9S
    0RR7S9S
tmpAction
SendAndFile
    0RR1S2S3S
    0R7S9S
PostedDateh
    5S6S7S8S
Delivery Options...K
DeliveryOptions
Delivery Options
    4S8S
_ViewIcon
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
    0RR1S2S3S5RS3E6S7S8S9S11S13RS3E14S15S17S19RS3E20S21S23S25RS3E26S27S29S31RS3E32S33S35S37RS3E38S39S41S43RS3E44S45S47S49RS3E50S51S53S55RS3E56S57S59S61RS3E62S63S65S67RS3E68S69S71S73RS3E8
PostedDateh
    5S6S7S8S
Special Options...r
(Advanced Options)
Special Options
    4S8S
PostedDateh
    5S6S7S8S
_Remove From Folder...
Categori_zeK
SSend
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
    ]M*.q
$$FormPostOpenAction
$TypeIcon
ExpireDate
ReplyDate
ComposedDate
$TITLE
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$ACTIONS
&Arial
 StdNotesLtr23
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$Header
$$ScriptName
$BODY
&Arial
 StdNotesLtr9

tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
&Q`'ph
5sx<w)
Q}.1xo
$TITLE
$INFO
$Header
$$ScriptName
$BODY
&Arial
 StdNotesLtr30
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$Header
$$ScriptName
$BODY
(Advanced Options)
    Replies to this memo should be addressed to:
Stamp message with a "Please reply by" date:
Expiration date  (after this date it is safe to archive or delete this document):
ReplyTo
    1S2S3S
ExpireDate
    3S4S6S11S
pcDate
ExpireDatea
    0R1S2S
TodayInt,
    0R1S2S
ConNext
pcDate
    0R1S2S13S15S
AdjustAmount
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
    0R1S2S4RS8E11RS13E13RS9E20RS13E22RS8E29RS13E31RS8E38RS13E40RS8E47RS13E49RS8E56RS13E58RS8E65RS13E67RS8E
AdjustAmount
pcDateW
    0R6S17S
AdjustAmount
ConNext
TodayInt#
ExpireDate
ReplyDate
    3S4S6S11S
pcDate
ReplyDate
    0R1S2S
TodayInt,
    0R1S2S
ConNext
pcDate
    0R1S2S13S15S
AdjustAmount
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
    0R1S2S4RS8E11RS13E13RS9E20RS13E22RS8E29RS13E31RS8E38RS13E40RS8E47RS13E49RS8E56RS13E58RS8E65RS13E67RS8E
AdjustAmount
pcDateW
    0R6S17S
AdjustAmount
ConNext
TodayInt#
ReplyDate
ReplyTo
ReplyTo
MailFormat
    1S2S
    Encoding method for Internet Mail attachments:
MailFormat
SMTPEncoding
    3S4S6S8S
SMTPEncoding
Accept Administrator's default|MIME (Base64)|BQuoted Printable|QUUencode|U
MailFormat
Sending this Notes document to other Notes mail user(s) through the Internet|E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
"nQ7O
$TITLE
$INFO
$$Script_O
$$ScriptName
$BODY
$PublicAccess
&Arial
 StdNotesLtr4
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
OMz{uh
$TITLE
$INFO
$$ScriptName
$BODY
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ACLDigest
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim note1 As NotesDocument
Dim dt1 As NotesDateTime
Dim uidoc As NotesUIDocument
Dim OldStartDate As Variant
Dim OldRepeatUnit As String
Dim OldInterval As Integer
(RepeatForm)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Postrecalc From Source Call Postrecalc
     On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
     Set uidoc = source
     Set note1 = source.document
     RepeatUnit = Left(note1.RepeatUnit(0), 1)
     OldRepeatUnit = RepeatUnit
     OldStartDate = note1.RepeatStartDate(0)
     note1.RepeatStartDate = note1.StartDate

'we need to initialize OldInterval and OldRepeatUnit so postrecalc won't recalc values
     Select Case RepeatUnit
     Case "W"
          OldInterval = Cint(note1.RepeatInterval_W(0)) * 2
     Case "M"
          OldInterval = Cint(note1.RepeatInterval_MDMP(0)) * 2
     Case "D"
          OldInterval = Cint(note1.RepeatInterval_D(0)) * 2
     Case "Y"
          OldInterval = Cint(note1.RepeatInterval_YD(0)) * 2
     End Select

End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)

'this recalcs RepeatUntil - but we only want to do it if RepeatUnit or RepeatInterval has changed

     Set dt1 = New NotesDateTime(note1.RepeatStartDate(0))
     RepeatUnit = Left(note1.RepeatUnit(0), 1)

     If RepeatUnit = "" Then
          note1.RepeatForUnit = "W"
          dt1.AdjustMonth(1)
     Elseif RepeatUnit = "C" Then
          If Not(Isdate(note1.RepeatAdjust_C(0))) Then note1.RepeatAdjust_C = note1.RepeatStartDate
     Else
          Select Case RepeatUnit
          Case "W"
               Interval = Cint(note1.RepeatInterval_W(0)) * 2
               Gosub CheckPreviousValues
               note1.RepeatForUnit = "W"
               note1.RepeatFor = Interval
               dt1.AdjustDay(Interval * 7)
          Case "M"
               Interval = Cint(note1.RepeatInterval_MDMP(0)) * 2
               Gosub CheckPreviousValues
               note1.RepeatForUnit = "M"
               note1.RepeatFor = Interval
               dt1.AdjustMonth(Interval)
          Case "D"
               Interval = Cint(note1.RepeatInterval_D(0)) * 2
               Gosub CheckPreviousValues
               note1.RepeatForUnit = "D"
               note1.RepeatFor = Interval
               dt1.AdjustDay(Interval)
          Case "Y"
               Interval = Cint(note1.RepeatInterval_YD(0)) * 2
               Gosub CheckPreviousValues
               note1.RepeatForUnit = "Y"
               note1.RepeatFor = Interval
               dt1.AdjustYear(Interval)
          End Select
     End If

     OldInterval = Interval
     OldRepeatUnit = RepeatUnit
     OldStartDate = note1.RepeatStartDate(0)
     note1.RepeatUntil = dt1.LSLocalTime
     uidoc.reload

     Exit Sub

CheckPreviousValues:
'This just checks to see if we should continue with the recalc
     If Interval = OldInterval And RepeatUnit = OldRepeatUnit And _
     note1.RepeatStartDate(0) = OldStartDate Then Exit Sub

     Return

End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)

     If uidoc.DialogBoxCanceled Then Exit Sub

     Dim MessageText As String

     If note1.RepeatHow(0) = "U" Then
          StartDate = note1.RepeatStartDate(0)
          UntilDate = note1.RepeatUntil(0)
          If StartDate > UntilDate Then
               MessageText = "The Until Date must be greater than the Starting Date."
               FieldName = "RepeatUntil"
               Gosub ValidationFailed
          End If
     End If

     Select Case note1.RepeatUnit(0)
     Case "W"
          If note1.RepeatAdjust_W(0) = "" Then
               MessageText = "You must select at least one day to repeat."
               FieldName = "RepeatAdjust_W"
               Gosub ValidationFailed
          End If
          If note1.RepeatHow(0) = "F" Then
               Select Case note1.RepeatForUnit(0)
               Case "D"
                    CompareInterval = Cint(note1.RepeatInterval_W(0)) * 7
               Case "W"
                    CompareInterval = Cint(note1.RepeatInterval_W(0))
               Case "M"
                    CompareInterval = Cint(note1.RepeatInterval_W(0)) / 4
               Case "Y"
                    CompareInterval = 0
               End Select
          End If
     Case "MP", "MD"
          If note1.RepeatUnit(0) = "MP" And note1.RepeatAdjust_MP(0) = "" Then
               MessageText = "You must select at least one day to repeat."
               FieldName = "RepeatAdjust_MP"
               Gosub ValidationFailed
          End If
          If note1.RepeatUnit(0) = "MD" And note1.RepeatAdjust_MD(0) = "" Then
               MessageText = "You must select at least one day to repeat."
               FieldName = "RepeatAdjust_MD"
               Gosub ValidationFailed
          End If
          If note1.RepeatHow(0) = "F" Then
               Select Case note1.RepeatForUnit(0)
               Case "D"
                    CompareInterval = Cint(note1.RepeatInterval_MDMP(0)) * 30
               Case "W"
                    CompareInterval = Cint(note1.RepeatInterval_MDMP(0)) * 4
               Case "M"
                    CompareInterval = Cint(note1.RepeatInterval_MDMP(0))
               Case "Y"
                    CompareInterval = 0
               End Select
          End If
     Case "YD"
          If note1.RepeatHow(0) = "F" Then
               Select Case note1.RepeatForUnit(0)
               Case "D"
                    CompareInterval = Cint(note1.RepeatInterval_YD(0)) * 365
               Case "W"
                    CompareInterval = Cint(note1.RepeatInterval_YD(0)) * 52
               Case "M"
                    CompareInterval = Cint(note1.RepeatInterval_YD(0)) * 12
               Case "Y"
                    CompareInterval = Cint(note1.RepeatInterval_YD(0))
               End Select
          End If
     Case "C"
          If note1.RepeatAdjust_C(0) = "" Then
               MessageText = "You must enter at least one date to repeat."
               FieldName = "RepeatAdjust_C"
               Gosub ValidationFailed
          End If
     End Select

     If note1.RepeatHow(0) = "F" Then
          Select Case note1.RepeatForUnit(0)
          Case "D"
               If Cint(note1.RepeatFor(0)) < CompareInterval Then _
               MessageText = "The number of days is inconsistent with the frequency."
          Case "W"
               If Cint(note1.RepeatFor(0)) < CompareInterval Then _
               MessageText = "The number of weeks is inconsistent with the frequency."
          Case "M"
               If Cint(note1.RepeatFor(0)) < CompareInterval Then _
               MessageText = "The number of months is inconsistent with the frequency."
          Case "Y"
               If Cint(note1.RepeatFor(0)) < CompareInterval Then _
               MessageText = "The number of years is inconsistent with the frequency."
          End Select
          If MessageText <> "" Then
               FieldName = "RepeatFor"
               Gosub ValidationFailed
          End If
     End If

     Exit Sub

ValidationFailed:
     Messagebox MessageText, 0, "Validation Error"
     uidoc.GoToField(FieldName)
     continue = False
     Exit Sub

End Sub
OrgRepeat
RepeatDates
RepeatUnit
    1S2S
RepeatUnit
RepeatDates
StartDateTime
RepeatDates
RepeatAdjust_C
    3S4S6S9S10S12S17S20S
RepeatAdjust_CK
    0S0E
RepeatAdjust_C
RepeatUnit
    1S2S
RepeatUnit
RepeatAdjust
RepeatAdjust
RepeatAdjust_MD
    3S4S5S6S7S8S10S12S
RepeatAdjust_MD
1st day|12nd day|23rd day|34th day|45th day|56th day|67th day|78th day|89th day|910th day|1011th day|1112th day|1213th day|1314th day|1415th day|1516th day|1617th day|1718th day|1819th day|1920th day|2021st day|2122nd day|2223rd day|2324th day|2425th day|2526th day|2627th day|2728th day|2829th day|2930th day|3031st day|31
RepeatUnit
    1S2S
RepeatUnit
RepeatAdjust
RepeatAdjust
RepeatAdjust_MP
    3S4S5S6S7S8S10S12S
RepeatAdjust_MP#
1st Sunday|1.01st Monday|1.11st Tuesday|1.21st Wednesday|1.31st Thursday|1.41st Friday|1.51st Saturday|1.62nd Sunday|2.02nd Monday|2.12nd Tuesday|2.22nd Wednesday|2.32nd Thursday|2.42nd Friday|2.52nd Saturday|2.63rd Sunday|3.03rd Monday|3.13rd Tuesday|3.23rd Wednesday|3.33rd Thursday|3.43rd Friday|3.53rd Saturday|3.64th Sunday|4.04th Monday|4.14th Tuesday|4.24th Wednesday|4.34th Thursday|4.44th Friday|4.54th Saturday|4.6Last Sunday|5.0Last Monday|5.1Last Tuesday|5.2Last Wednesday|5.3Last Thursday|5.4Last Friday|5.5Last Saturday|5.6
RepeatUnit
    1S2S
RepeatUnit
RepeatAdjust
RepeatAdjust
StartDateTime
    3S4S5S6S7S8S10S12S
RepeatAdjust_W
Sunday|0Monday|1Tuesday|2Wednesday|3Thursday|4Friday|5Saturday|6
RepeatUnit
AppointmentType
RepeatUnit
    3S4S6S9S10S12S14S17S
RepeatUnit
Daily|DWeekly|WMonthly by Date|MDMonthly by Day|MPYearly|YDCustom|C
RepeatUnit
    3S4S5S6S
RepeatUnit
RepeatInterval
RepeatInterval
RepeatInterval_MDMP
RepeatInterval_MDMP
    3S4S5S6S7S8S9S10S12S14S15S16S18S20SRepeatInterval_MDMP
Every month on the|1Every other month on the|2Every 3rd month on the|3Every 4th month on the|4Every 5th month on the|5Every 6th month on the|6Every 7th month on the|7Every 8th month on the|8Every 9th month on the|9Every 10th month on the|10Every 11th month on the|11Every 12th month on the|12
RepeatUnit
    1S2S
StartDate
    0S0E
RepeatStartDate
RepeatHow
RepeatHow
    3S4S6S8S
RepeatHow
Until|UFor|F
RepeatHow
RepeatUnit
    3S4S5S6S
RepeatUntil
RepeatUntil
    3S4S6S8S
StartDate
RepeatStartDate
    0R1S2S
RepeatUnit
StartDate
RepeatUnit
StartDate
RepeatUnit
StartDate
RepeatUnit
StartDate
StartDate
    0R3S4S6S10S12S14S16S18S20S23S24S25S27S31S33S35S37S39S41S44S48S50S51S53S57S59S61S63S65S67S70S74S76S77S79S83S85S87S89S91S93S96SRepeatUntil
RepeatUnit
    1S2S3S4S5S6S
RepeatWeekends
RepeatWeekends
    3S4S6S8S
RepeatUnit
RepeatWeekends
    3S4S5S6S7S8S10S12S
RepeatWeekends
Don't Move|DMove to Friday|FMove to Monday|MMove to Nearest Weekday|NDelete|X
RepeatHow
RepeatUnit
    3S4S5S6S
RepeatForUnit
RepeatUnit
RepeatForUnit
    3S4S6S10S13S
RepeatForUnit
RepeatFor
Day|D
Week|W
Month|M
Year|Y
Days|D
Weeks|W
Months|M
Years|Y
    3S4S6S7S8S9S10S11S12S14S15S16S17S18S19S20S
RepeatFor
RepeatFor
    3S4S6S8S
RepeatFor
RepeatUnit
    1S2S
RepeatUnit
RepeatInterval
RepeatInterval
RepeatInterval_YD
RepeatInterval_YD
    3S4S5S6S7S8S10S12S13S14S16S18S
RepeatInterval_YD
Every year|1Every other year|2Every 3rd year|3Every 4th year|4Every 5th year|5Every 6th year|6Every 7th year|7Every 8th year|8Every 9th year|9Every 10th year|10
RepeatUnit
    1S2S
RepeatUnit
RepeatInterval
RepeatInterval
RepeatInterval_D
RepeatInterval_D
    3S4S5S6S7S8S10S12S13S14S16S18S
RepeatInterval_D
Every day|1Every 2nd day|2Every 3rd day|3Every 4th day|4Every 5th day|5Every 6th day|6Every 7th day|7Every 8th day|8Every 9th day|9Every 10th day|10Every 11th day|11Every 12th day|12Every 13th day|13Every 14th day|14Every 15th day|15Every 16th day|16Every 17th day|17Every 18th day|18Every 19th day|19Every 20th day|20Every 21st day|21Every 22nd day|22Every 23rd day|23Every 24th day|24Every 25th day|25Every 26th day|26Every 27th day|27Every 28th day|28Every 29th day|29Every 30th day|30Every 31st day|31
Starting date
Repeat
At weekends
RepeatUnit
RepeatInterval
RepeatInterval
RepeatInterval_W
RepeatInterval_W
    3S4S5S6S7S8S10S12S13S14S16S18S
RepeatInterval_W
Every|1Every 2nd|2Every 3rd|3Every 4th|4Every 5th|5Every 6th|6Every 7th|7Every 8th|8
    Enter dates below (no times):
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
RepeatEnd
RepeatStart
StartDate
$FormPublicAccess
$TITLE
$INFO
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
RepeatDates
RepeatAdjust_C
RepeatStartDate
RepeatUntil
RepeatFor
$BODY
$PublicAccess
VersionOpt|
    6S7S9S14S
$VersionOpt
    0R1S2S3S
SavedOnce
    0R1S2S3S
PostedDate(
    0R1S2S3S
DeliveredDate
    0R1S2S3S
$AutoEditMode
    0R1S2S3S
MailSaveOptions
    0R1S2S3S
VersionOpt
    0R4S
Phone Message
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
Times New Roman
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "EmailProcessing"
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
 Phone Message'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Querysave From Source Call Querysave
     On Event Queryclose From Source Call Queryclose
     On Event Postmodechange From Source Call Postmodechange
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)

     Set ws = New NotesUIWorkSpace
     Set uidoc = source

     Call EmailOpen

End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)

     Call EmailSave(Continue)

End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)

     Call EmailClose(Continue)

End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)

     Call EmailModeChange

End Sub
    Always Hidden:
Principal
CalendarProfile
Owner
    1S2S3S7S
Principal
Principal
    0R3S4S6S8S
FromPerson memo is from.
    0S0E
    0S0E
Encrypt
    0S0E
DefaultMailSaveOptions
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
    From:
Principal
Principal
FromDomain
FromDomain
FromDomain
FromDomain
    7S10S15S16S18S22S25S29S32S33S37S39S42S43S45S47S48S49S55S58S62S65S71S
FromName
Principal
Principal
    0RR1S2S9S11S15S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom
     on
PostedDateh
PostedDate
    7S9S
tmpDisplayDateTime/date memo was created or mailed.
ReplyDate
ReplyTo
    1S2S3S4S5S6S
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Sent by:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
SendTo
CopyTo
  cc:
CopyTo
    1S8S13S14S2E17S18S21S28S31S
SendTo}
    0S0E
SendToList of primary people to send memo.
CopyTo}
    0S0E
CopyToList of people to send a copy of the memo.
DeliveredDate
BlindCopyTo
(bcc:
BlindCopyTo
    3S4S5S6S7S8S10S11S12S16S18S19S21StmpDisplayBlindCopyTo
    bcc:
BlindCopyTo
    0S0E
BlindCopyToList of undisclosed people to send copies of memo.
While You Were Out
Contact:
Phone:
PhoneCaller
tmpPhoneCaller
CompanyName
tmpCompanyName
PhoneNumber
tmpPhoneNumber
FaxNumber
tmpFaxNumber
PhoneCaller
CompanyName
PhoneNumber
FAXNumber
PhoneReason
PhoneReason
Telephoned|TPlease Call|PWill Call Again|WReturned Call|RWas In|IWill Return|LLeft Package|KPlease See Me|MUrgent|N
    Message:
Phone Message from
PhoneCaller
    1S2S
Subject
Edit Document
ForwardK
    0S0E
New Memo.
    0S0E
Delete
    0S0E
_Move To Folder...
Delivery Information...Kz
DeliveryInfo
Delivery Information
    4S5S6S7S8S9S10S12S
_Forward
Reply
Reply
    0S0E
Reply With History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Address...
    0S0E
PostedDateh
    5S6S7S8S
Close
    0S0E
IsMailStationeryh
PostedDateh
    6S7S
Save As Draft
tmpAction
SaveAsDraft
    1S2S3S
IsMailStationeryh
PostedDateh
    4S5S
PromptValue
DefaultMailSaveOptions
Save when sent
Do you wish to save a copy of this Memo?
DefaultMailSaveOptions
    1S2S5S6S8S14S17S
SaveOptions
PromptValue
SaveOptions
PromptValue
    0RR1S2S5S6S9S14S
tmpAction
DefaultMailSaveOptions
Mailing
    0RR1S2S3S6S7S9S11S
MailOptions
    0R1S2S3S
    0R7S9S
tmpAction
SaveOptions
SendAndFile
    0RR1S2S3S6S7S9S11S
    0R7S9S
PostedDateh
IsMailStationeryh
    5S6S7S8S10S11S
Send And File...
    4S11S13S19S
    0RR7S9S
tmpAction
DefaultMailSaveOptions
Mailing
    0RR1S2S3S6S7S9S11S
MailOptions
    0R1S2S3S
    0R7S9S
tmpAction
SendAndFile
    0RR1S2S3S
    0R7S9S
PostedDateh
IsMailStationeryh
    5S6S7S8S10S11S
Delivery Options...K
DeliveryOptions
Delivery Options
    4S8S
_ViewIcon
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
    0RR1S2S3S5RS3E6S7S8S9S11S13RS3E14S15S17S19RS3E20S21S23S25RS3E26S27S29S31RS3E32S33S35S37RS3E38S39S41S43RS3E44S45S47S49RS3E50S51S53S55RS3E56S57S59S61RS3E62S63S65S67RS3E68S69S71S73RS3E8
PostedDateh
    5S6S7S8S
Special Options...
ReplyDate
ReplyDate
    1S2S3S
ReplyTo
ReplyTo
    0R1S2S3S
(Advanced Options)
Special Options
    0R6S10S13S15S
tmpDisplayReplyInfo
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    0R1S2S3S4S5S8S9S11S13S14S15S17S18S21S22S24S26S27S28S
DueDateTime
ReplyDate
    0R1S2S3S
PostedDateh
    5S6S7S8S
_Remove From Folder...
Categori_zeK
SSend
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
tmpnewdoc
    1S2S
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New GroupK,
NewGroup
    0S0E
tmpnewdoc
    1S2S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
-wb@Y
s^~pd
$$FormPostOpenAction
$TypeIcon
ExpireDate
ReplyDate
ComposedDate
$TITLE
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$ACTIONS
$SCRIPTOBJ_19
$SCRIPTOBJ_20
$SCRIPTOBJ_21
Times New Roman
 StdNotesLtr32
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
W"KZ?
IO;+L
$TITLE
$INFO
$$ScriptName
$BODY
&Arial Narrow
"Helvetica
 StdNotesLtr6
@___@
<a>7`^
`!bb!R
    6S9S
tmpFrom1stInitial
tmpDisplayFrom_Preview
    6S9S
tmpFromRestOfName
@___@
<a>7`^
`!bb!R
tmpDisplayDate_Preview
tmpDate
@___@
<a>7`^
`!bb!R
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$ScriptName
$BODY
Slashed Lines with GlobeStdNotesLtr21CU3
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
(Delivery Info)DeliveryInfo1CDU
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
255D2116B7BDFECF1769F57E5917AA29Lotus Notes
Out Of Office ProfileOutOfOfficeProfile
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisCN=Ryan Jansen/O=IrisCDw#########################
Pony ExpressStdNotesLtr17CU3
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########
CenteredStdNotesLtr3CU3
CN=Mussie Shore/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
Green and Yellow DiamondStdNotesLtr14CU3
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
Plain TextStdNotesLtr0CU3
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
1(NamesPrompt)1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCDU########################################################
Triangle with Dots 1StdNotesLtr29CU3
CN=Mussie Shore/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
Three Dimensional ReliefStdNotesLtr27CU3
CN=Paul DiCristina/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################
1(NoticeOptionsDlg)CDU31
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
Torn PaperStdNotesLtr28CU3
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################
Times New Roman
 StdNotesLtr21
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$ScriptName
$BODY
 DeliveryInfo
Importance:
Importance
Importance
Normal
    3S4S6S8S9S10S12S14StmpImportanceInfo
Signed:
Encrypted:
Return receipt:
    3S4S6S8S
tmpSignedInfo
Encrypt
    3S4S6S8S
tmpEncryptInfo
$KeepPrivate
Do not forward, copy or print!
    3S4S6S8S
tmpKeepPrivateInfo
ReturnReceipt
    3S4S6S8S
tmpReceiptInfo
PostedDate
Not sent yet
PostedDate
D1T1V
 Sent
DeliveredDate
DeliveredDate
D1T1V
 Delivered"
$AdditionalHeaders
-------- Additional  Header  ------
$AdditionalHeaders
SMTPHeaders
-------- Additional  Header  ------
SMTPHeaders
DeliveredDate
-------- Routing Information ------
DeliveredDate
RouteTimes
D1T1V
 at server
RouteServers
    2R5S6S7S8RS8E10S16S17S20R23S24S26RS8E28S34S35S38R41S42S44RS8E46S49R50S51R54S55S57RS8E59S62R63S64R67S68S70RS8E72S75R78S79S81RS7E83S91S99S2E101RStmpPostedDateInfo
Delivery information:
FromDomain
FromDomain"
    1S2S5S6S8S10S11S12StmpFromInfo
From:
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
ExpireDate
ReplyDate
$Phone_O
$TITLE
$INFO
$$Script_O
$$ScriptName
$BODY
$ACTIONS
$PublicAccess
Out of Office Profile
Times New Roman
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim uidoc As NotesUIDocument
 OutOfOfficeProfile'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
     Set uidoc = source
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As FIELD
     Set Source = Bind(Objectname_)
     On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
     uidoc.refresh
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As FIELD
     Set Source = Bind(Objectname_)
     On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
     uidoc.refresh
End Sub
Normal
Action
Profile
    1S2S
    Always Hidden:
AlreadyNotified
AlreadyNotified
Princ
CalendarProfile
Owner
    1S2S6S
Princ
Princ
    0R3S4S6S8S
Sender
System
Please do not delete - Out of Office Profile
Subject
ExcludeFromView
_ViewIcon
Out Of Office Profile
    I will be out of the office on the following dates:

Leaving:
Returning:
FirstDayOut
pcDate
FirstDayOut
    1S2S
TodayInt,
    0R1S2S
ConNext
pcDate
nextG
    0R1S2S8S11S13S
AdjustAmount
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
    0R1S2S4RS8E11RS13E13RS9E20RS13E22RS8E29RS13E31RS8E38RS13E40RS8E47RS13E49RS8E56RS13E58RS8E65RS13E67RS8E
AdjustAmount
pcDateW
AdjustAmount
ConNext
TodayInt#
    0R3S4S6S14R20S22S24S27S28S30S31S34S36S38SFirstDayOut
FirstDayBack
pcDate
FirstDayBacka
    1S2S
TodayInt,
    0R1S2S
ConNext
pcDate
nextG
    0R1S2S8S11S13S
AdjustAmount
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
    0R1S2S4RS8E11RS13E13RS9E20RS13E22RS8E29RS13E31RS8E38RS13E40RS8E47RS13E49RS8E56RS13E58RS8E65RS13E67RS8E
AdjustAmount
pcDateW
AdjustAmount
ConNext
TodayInt#
    0R3S4S6S14R20S22S24S27S28S30S31S34S36S38SFirstDayBack
    My Out of The Office message for most people/groups:
    Whomever
    Subject:
 is out of the office."
    1S2S
GeneralSubject
FirstDayOut
FirstDayBack
I will be out of the office from
FirstDayOut
 until
FirstDayBackV
    3S4S5S6S7S8S10S12S13S14S18S19S20S21S25S26S
DaysOut
I will respond to your message when I return.
GeneralMessage
    People/groups who should receive a special message:
SpecialPeople
SpecialPeople
    My Out of The Office message for special people/groups:
    Whomever
    Subject:
 is out of the office."
    1S2S
SpecialSubject
DaysOut
dispDaysOut
SpecialMessage
SpecialMessage
    People/groups who should not receive any messages:
IgnorePeople
IgnorePeople
FirstDayOut can be entered as a date or a day of the week.
It is then converted to a text string containing a date, which
    0R1S
@TextToTime does not always recognize as Text so it is
    0R1S
converted to Text then to Time
    0R1S
DateValue
FirstDayOut
    0R1S2S
DateValue
DateValue
DateValue
    0R7S12S17S19S21S
dateFirstDayOut
FirstDayBack can be entered as a date or a day of the week.
It is then converted to a text string containing a date, which
    0R1S
@TextToTime does not always recognize as Text so it is
    0R1S
converted to Text then to Time
    0R1S
DateValue
FirstDayBackV
    0R1S2S
DateValue
DateValue
DateValue
    0R7S12S17S19S21S
dateFirstDayBack
Closed
    0S0E
_Edit Document
_Forward
Enable Out of Office Agentn
    0S0E
FirstDayOut
FirstDayBack
Validation Error
You must indicate when you are leaving and when you will be back.
    0RR3S4S5S6S8S14S16S20S
FirstDayBackW
Validation Error
Your First Day Back is in the Past.  The Out of Office agent will not be enabled.
    0RR6S7S8S9S11S17S19S23S
ProcessOutOfOffice
Out of Office Agent
Please ask a Manager or Designer of this database to enable the agent for you.
The Out of Office agent was not enabled.
    0RR6S8S11S13S19S21S29S30S31S32S35S37S
Agent Enabled
The Out of Office agent is now enabled.  When people send you mail between
FirstDayOut
 and
FirstDayBackV
 it will inform them of your absence.
    0RR4S6S7S8S12S13S14S15S19S20S
AlreadyNotified
    0RR1S2S3S2E
ProcessOutOfOffice
    0S0E
I Have Returned To The Office
ProcessOutOfOffice
Welcome Back
No more "Out of Office" messages will be sent.
Out of Office Agent
Please ask a Manager or Designer of this database to disable the agent for you.
The Out of Office agent is still enabled.
    6S8S11S15S17S20S26S28S36S37S38S39S42S44S
ProcessOutOfOffice
    0S0E
Categori_ze
Send Docu_ment
_Move to Folder...
_Remove from Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
DocLife
ArchiveDate
$ManualArchivers_O
ObsoleteLife
DocumentLife
$$FirstDayOut1
$FirstDayOut1_O
$$FirstDayBack1
$FirstDayBack1_O
$TITLE
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$$FirstDayOut
$FirstDayOut_O
$$FirstDayBack
$FirstDayBack_O
$$GeneralMessage
$GeneralMessage_O
_ViewIcon
dateFirstDayOut
dateFirstDayBack
$BODY
$ACTIONS
&Arial
 StdNotesLtr17
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$ScriptName
$BODY
Times New Roman
 StdNotesLtr3
tmpDisplayFrom_Previewb
tmpFromFirst
tmpDisplayFrom_Previewb
tmpFromLast

tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$Header
$$ScriptName
$BODY
&Arial
 StdNotesLtr14
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$ScriptName
$BODY
 StdNotesLtr0
$HideMailHeader
    0S0E
    From:
tmpDisplayFrom_Preview
tmpFrom
     on
tmpDisplayDate_Preview
tmpDateTime/date memo was created or mailed.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
I)/H1
$TITLE
$INFO
$$Script_O
$$ScriptName
$BODY
(NamesPrompt)
    Delegate to:
SendTo
SendTo
    1S2S3S7S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$FormPublicAccess
$TITLE
$INFO
$$Script_O
$$ScriptName
$BODY
$PublicAccess
&Arial
 StdNotesLtr29
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$Header
$$ScriptName
$BODY
&Arial
 StdNotesLtr27
tmpDisplayDate_Preview
tmpDate_2
tmpDisplayFrom_Preview
tmpFrom_2
tmpDisplayFrom_Preview
tmpFrom_1
tmpDisplayFrom_Preview
tmpFrom_
tmpDisplayDate_Preview
tmpDate_1
tmpDisplayDate_Preview
tmpDate_
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$Header
$$ScriptName
$BODY
(NoticeOptionsDlg)
CanAccept
NoticeType
chair
tmpowner
DoNotProcessh
BroadCast
    1S2S20S21S23S24S26S27S31S32S34S35S38S39S40S
CanDecline
NoticeType
chair
tmpowner
DoNotProcessh
tmpNoParent
Broadcast
    0R1S2S20S21S23S24S26S27S32S33S38S39S41S42S45S46S47S
CanDelegate
NoticeType
chair
tmpowner
DoNotProcessh
BroadCast
    0R1S2S20S21S23S24S26S27S31S32S34S35S38S39S40S
CanPropose
NoticeType
chair
tmpowner
DoNotProcessh
BroadCast
OrgRepeat
    0R1S2S22S23S25S26S28S29S33S34S36S37S38S39S45S46S47S
CanPencilIn
NoticeType
Chair
tmpOwner
DoNotProcessh
Broadcast
    0R1S2S8S9S10S11S12S13S14S15S16S20S2E21S23S24S26S27S31S32S34S35S39S40S
SemiList
CanAccept
CanDecline
CanDelegate
CanPropose
CanPencilIn
    0R1S2S7S8S9S10S11S12S13S16S
SemiList
Accept|0
Decline|1
Delegate|2
Propose Alternative Time/Location|3
Pencil In|4
    0R5S6S7S8S9S10S11S14S15S16S17S18S19S20S21S22StmpUserActions
ResponseType
tmpUserActions
Comments
    Action to take:
    Comments to include:
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$FormPublicAccess
$TITLE
$INFO
$$Script_O
$$ScriptName
$BODY
$PublicAccess
1(InviteeResponses)UC31
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################
1(PeopleListDlg)1U
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################################
(NonDelivery Report)DeliveryReportNonDelivery Report
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=Irisw##################################################
Frank LloydStdNotesLtr7CU3
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############
1(ChangeRepeating)1
CN=Ryan Jansen/O=IrisCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesU###########################
Teal and Yellow LinesStdNotesLtr26CU3
CN=Mussie Shore/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################
Metal PlateStdNotesLtr15CU3
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########
1(CalendarHelp)1U
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
255D2116B7BDFECF1769F57E5917AA29Lotus Notes
Archive ProfileArchiveProfileArchive Profile
CN=Catherine Duffy/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCDw#############
(ArchiveInstructions)(ArchiveInstructions)1CU
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################
DeccoStdNotesLtr4CU3
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
_Special\Temporary Export CertificateTemporary Export Certificate
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=Irisw###############
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "AppointmentResponses"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub SendConfirmation
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
'++LotusScript Development Environment:2:2:SendConfirmation:1:8
Sub SendConfirmation
     Dim sendto() As Variant
     Dim names() As Variant
     Dim dummydoc As New NotesDocument(db)
     Dim CanMail As Integer

'first, create the notice document
     Call CreateNoticeDocument("Confirmed -",ORS_MSGTYPE_CONFIRMATION,10,1)
'we need to change the $REF item
     dummydoc.UniversalID = note.RealDocUNID(0)
     Call notice.MakeResponse(dummydoc)
     notice.ApptUNID = dummydoc.UniversalID

'next, add the invitee responses
     Dim rtitem  As New NotesRichTextItem(notice,"StatusUpdate")

'add all of the invitee status's to the rich text item
     If (note.tmpAccepted(0) <> "") Then
          Forall people In note.tmpAccepted
               Call rtitem.AppendText(Cstr(people) & " -> Accepted")
               Call rtitem.AddNewLine(1)
          End Forall
     End If
     If (note.tmpDeclined(0) <> "") Then
          Forall people In note.tmpDeclined
               Call rtitem.AppendText(Cstr(people) & " -> Declined")
               Call rtitem.AddNewLine(1)
          End Forall
     End If
     If (note.tmpCounter(0) <> "") Then
          Forall people In note.tmpCounter
               Call rtitem.AppendText(Cstr(people) & " -> Counter Proposed")
               Call rtitem.AddNewLine(1)
          End Forall
     End If
     If (note.tmpDelegated(0) <> "") Then
          x = 0
          Forall people In note.tmpDelegated
               Call rtitem.AppendText(Cstr(people) & " -> Delegated to " & note.tmpDelegee(x))
               x= x+1
               Call rtitem.AddNewLine(1)
          End Forall
     End If
     Call rtitem.AddNewLine(1)
'now, include the people who did not respond
     If (note.tmpWaiting(0) <> "") Then
          Call rtitem.AppendText("Waiting for reply:")
          Call rtitem.AddNewLine(1)
          Forall people In note.tmpWaiting
               Call rtitem.AppendText(Cstr(people))
               Call rtitem.AddNewLine(1)
          End Forall
     End If
'include the people who were uninvited
     If (note.tmpUninvited(0) <> "") Then
          Call rtitem.AppendText("Uninvited:")
          Call rtitem.AddNewLine(1)
          Forall  people In note.tmpUninvited
               Call rtitem.AppendText(Cstr(people))
               Call rtitem.AddNewLine(1)
          End Forall
     End If

     i = 0
     NamesToSend = Evaluate("@Trim(tmpAccepted:tmpWaiting)",note)
     If (NamesToSend(0) <> "") Then
          CanMail = True
          Redim sendto(Ubound(NamesToSend))
          For i = 0 To Ubound(NamesToSend)
               sendto(i) = NamesToSend(i)
          Next
          i = i + 1
     End If

     DelegeesToSend = Evaluate("@Trim(@Replace(tmpDelegee;tmpDeclined:tmpDelegated;""""))",note)
     If (DelegeesToSend(0) <> "") Then
          CanMail = True
          Redim Preserve sendto(i + Ubound(DelegeesToSend))
          For x = 0 To Ubound(DelegeesToSend)
               sendto(i) = DelegeesToSend(x)
               i = i + 1
          Next
     End If

     If CanMail Then
          Redim names(Ubound(sendto))
          For i = 0 To Ubound(sendto)
               names(i) = GetInviteeMailAddress(Cstr(sendto(i)))
          Next
          notice.SendTo = names
          Call notice.Send(False)
          Messagebox "A confirmation notice has been sent to the invitees.",0,"Status"
     End If
End Sub
tmpAccepted
tmpWaiting
    0S0E
tmpDelegee
tmpDeclined
tmpDelegated
    0S0E
(InviteeResponses)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Queryopen From Source Call Queryopen
     On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)

End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
     Set uidoc = source
     Call InstantiateObjectVariables
     Call CreateInviteeTable(note)
End Sub
    0S0E
    Print
NoticeType
    1S2S
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call SendConfirmation
End Sub
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Send Confirmation
Broadcast
    1S2S
 Accepted
Counter proposed
tmpAccepted
    0S0E
dispAccepted
tmpCounterc
    0S0E
dispCounter
 Delegated
Declined
tmpDelegated^
tmpDelegated
 -> "
tmpDelegee
    6S7S8S9S10S11S23S24S25S26S
dispDelegated
tmpDeclined
    0S0E
dispDeclined
 No response
Removed
tmpWaiting
    0S0E
dispWaiting
tmpUninvited
    0S0E
dispUnivited
tmpResAccepted
    1S2S
tmpResAccepted^
tmpResDeclined^
tmpResWaiting
    4S5S6S7S11S12S13S14S18S19S
Rooms/Resources
 Reserved
Unavailable
tmpResAccepted
dispResAccepted
tmpResDeclined
dispResDeclined
 No response
tmpResWaiting
dispResWaiting
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$SCRIPTOBJ_6
$FormPublicAccess
$TITLE
$INFO
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$PublicAccess
(PeopleListDlg)
tmpPeopleList
tmpPeopleSelected
tmpPeopleList
    0S0E
tmpHeader
tmpHeader
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
%%3Y~
$FormPublicAccess
$TITLE
$INFO
$$Script_O
$$ScriptName
$BODY
$PublicAccess
*** Message Not Delivered ***
 NonDelivery Report
Delivery Failure Report
    Your document:
Subject
OriginalSubject
    was not delivered to
IntendedRecipient
IntendedRecipient
    0S0E
IntendedRecipient
    because:
FailureReason
FailureReason
$HideMailHeader
    0S0E
    What should you do?
    You can resend the undeliverable document to the recipients listed above by choosing the Resend button or the Resend command on the Actions menu.
    Once you have resent the document you may delete this Delivery Failure Report.
    If resending the document is not successful you will receive a new failure report
    Unless you receive other Delivery Failure Reports, the document was successfully delivered to all other recipients.
Routing path
RouteServers
RouteServersServers along route.
    ________________________
    To:
SendTo
SendToList of people to send document.
    cc:
CopyTo
CopyToList of people to send copies of document.
    From:
FromPerson document is from.
    Date:
PostedDateY
PostedDateJ
DateTime/date memo was created or mailed.
    Subject:
Subject
SubjectSubject of document.
BodyBody of document.
Categori_ze
Closee
    0S0E
Edit Document
Resend
Resend|
    7S9S
SaveOptions
    0R1S2S3S
_Forward
_Move to Folder...
_Remove from Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$WINDOWTITLE
$$ScriptName
$BODY
$ACTIONS
 StdNotesLtr28
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
ebXry
Q^,v:y@
$TITLE
$INFO
$$ScriptName
$BODY
&Arial
 StdNotesLtr7
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
:oKM5
$TITLE
$INFO
$$ScriptName
$BODY
(ChangeRepeating)
ChangeWhich
Just this one|0All|1All previous|2All future|3
Change:
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
A    ATP
$FormPublicAccess
$TITLE
$INFO
$$Script_O
$$ScriptName
$BODY
$PublicAccess
&Arial
 StdNotesLtr26
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
O}\Pq
$TITLE
$INFO
$Header
$$ScriptName
$BODY
Times New Roman
 StdNotesLtr15
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
#>Q40V
$TITLE
$INFO
$$ScriptName
$BODY
(CalendarHelp)
    Calendar entry--new ->tmpContext = 0
tmpContext
    1S2S
    When you create a calendar entry, you can specify the type of entry you want to create. You can create an appointment, meeting invitation, event, reminder, or anniversary.
    To specify the type of calendar entry, click a
    type at the top of the document. Notes displays different
    fields depending on
    the calendar type
    you select.
    Enter information in the calendar entry
    fields Notes displays.
    set an alarm that reminds you about
    the calendar entry,
    click Alarm options and specify information about the alarm.
    To repeat the calendar entry at specified intervals, click Repeat and specify information about how often and how long you want the entry to repeat.
    To check your calendar as you are entering information, click Check Calendar. To return to the document, press ESC.
    Click Save and Close when you finish entering information
    for the calendar entry.
    If you created a meeting invitation, click Yes to send
    invitations to the invitees.
    For information on
    each type of calendar entry, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Calendar entry--existing -> tmpContext = 1
tmpContext
    1S2S
    You can make changes to an appointment, event, reminder, or anniversary.
    If you have not already done so, click Edit Document.
    Make changes in
    any of
    the calendar entry
    fields Notes displays.
    To set an alarm that reminds you about the calendar entry, click Alarm options and specify information about the alarm.
    To check your calendar as you are making changes, click Check Calendar. To return to the document, press ESC.
    Click Save and Close.
    For information on calendar entries, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Invitation--existing entry (chair) -> tmpContext = "2"
tmpContext
    1S2S
    After you create a meeting invitation, you can make changes to the document by clicking Edit Document and doing the following:
    Display responses to a meeting invitation by clicking "Display invitee responses."
    Change the date, time, or location of the meeting by clicking Edit Document and changing the date or time fields or the reservation section.
    Remove an invitee from the invitation list by clicking Edit Document
    and choosing Actions - Remove - Invitees.
    Cancel a room or resource reservation by clicking Edit Document and choosing Actions - Remove - Rooms & Resources.
    Send a confirmation to the invitees by clicking Send Confirmation.
    Cancel a meeting by choosing Actions - Cancel Meeting.
    Accept a meeting invitation for an invitee by choosing Actions - Change Status to Accepted.
    For information on calendar entries, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Invitation (invitee--action already taken) -> tmpContext = "3"
tmpContext
    1S2S
    You can make changes to a meeting invitation if necessary.
    If you have not already done so, click Edit Document.
    Make changes in
    any of
    the calendar entry
    fields Notes displays.
    change your response to the meeting invitation, choose Actions - Other and select
    a different response
    Click Save and Close.
    For information on meeting invitations, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Invitation (invitee - no action taken yet) -> tmpContext = "4"
tmpContext
    1S2S
    When you receive a meeting invitation, you can:
    Accept the meeting invitation by clicking Accept.
    Accept the meeting invitation tentatively by clicking Other and selecting Pencil In.
    Decline the meeting invitation by clicking Decline.
    Ask someone to attend the meeting in your place by clicking Other and selecting Delegate.
    Propose a different time or location for the meeting by clicking Other and selecting "Propose Alternative Time/Location."
    When you receive a broadcast meeting invitation, you can add the broadcast meeting to your calendar by clicking Add to Calendar.
    You can also accept meeting invitations from all or from selected people
    automatically by using the Meetings option under Autoprocessing Options
    in your Calendar Profile.
    For information on responding to meeting invitations, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Declined -> tmpContext = "5"
tmpContext
    1S2S
    The person you invited to the meeting declined your meeting invitation.
    To view a list of invitee responses, open the meeting invitation in the Calendar view and click "Display invitee responses."
    For information on meeting invitations, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Change proposal ->tmpContext = "6"
tmpContext
    1S2S
    Someone you invited to the meeting proposed an alternative time or location for your meeting. You can accept or decline the proposal.
    To accept, click "Accept Counter Proposal." Notes sends a new invitation with the updated meeting information to all invitees. To decline, click "Decline Counter Proposal." Notes sends a message telling the invitee who proposed the change that you declined it.
    For information on meeting invitations, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Reschedule ->tmpContext = "7"
tmpContext
    1S2S
    The meeting chairperson rescheduled this meeting. You can respond to the rescheduled meeting invitation in one of the following ways:
    Accept the meeting invitation by clicking Accept.
    Accept the meeting invitation tentatively by clicking Other and selecting Pencil In.
    Decline the meeting invitation by clicking Decline.
    Ask someone to attend the meeting in your place by clicking Other and selecting Delegate.
    Propose a different time or location for the meeting by clicking Other and selecting "Propose Alternative Time/Location."
    When you receive a broadcast meeting invitation, you can add the broadcast meeting to your calendar by clicking Add to Calendar.
    You can also accept meeting invitations automatically from all or selected people by using the Meetings option under Autoprocessing Options in your Calendar Profile.
    For information on responding to meeting invitations, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Acceptance ->tmpContext = "8"
tmpContext
    1S2S
    The person you invited to the meeting accepted your meeting invitation.
    To view a list of invitee responses, open the meeting invitation in the Calendar view and click "Display invitee responses."
    For information on meeting invitations, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Counter proposal declined ->tmpContext = "9"
tmpContext
    1S2S
    The meeting chairperson declined the alternative time or location you proposed. You can respond to the meeting invitation in one of the following ways:
    Accept the meeting invitation by clicking Accept.
    Accept the meeting invitation tentatively by clicking Other and selecting Pencil In.
    Decline the meeting invitation by clicking Decline.
    Ask someone to attend the meeting in your place by clicking Other and selecting Delegate.
    Propose another time or location for the meeting by clicking Other and selecting "Propose Alternative Time/Location."
    You can also accept meeting invitations automatically from all or selected people by using the Meetings option under Autoprocessing Options in your Calendar Profile.
    For information on responding to meeting invitations, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Cancelled ->tmpContext = "10"
tmpContext
    1S2S
    The chairperson cancelled this meeting. You do not need to respond to this message. Notes automatically removed the meeting from your calendar.
    For information on meeting invitations, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Status update - Uninvite -> tmpContext = "11"
tmpContext
    1S2S
    You are no longer required to attend this meeting. You do not need to respond to this message. Notes automatically removed the meeting from your calendar.
    For information on meeting invitations, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Status update - Change Status to Accepted -> tmpContext = "12"
tmpContext
    1S2S
    You are required to attend this meeting. You do not need to respond to this message. Notes automatically added the meeting to your calendar.
    For information on responding to meeting invitations, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Confirmation -> tmpContext = "13"
tmpContext
    1S2S
    The chairperson sent this message to remind you of an upcoming meeting. You do not need to respond to this message. If you can no longer attend the meeting, open the original meeting invitation and choose Actions - I Can No Longer Attend.
    For information on meeting invitations, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Delegation -> tmpContext = "14"
tmpContext
    1S2S
    Someone delegated this meeting invitation to you. You can respond to the meeting invitation in one of the following ways:
    Accept the meeting invitation by clicking Accept.
    Accept the meeting invitation tentatively by clicking Other and selecting Pencil In.
    Decline the meeting invitation by clicking Decline.
    Ask someone to attend the meeting in your place by clicking Other and selecting Delegate.
    Propose a different time or location for the meeting by clicking Other and selecting "Propose Alternative Time/Location."
    You can also accept meeting invitations automatically from all or selected people by using the Meetings option under Autoprocessing Options in your Calendar Profile.
    For information on responding to meeting invitations, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Delegated Invitation -> tmpContext = "15"
tmpContext
    1S2S
    The person you invited to this meeting delegated the invitation to someone else.
    To view a list of invitee responses, open the meeting invitation in the Calendar view and click "Display invitee responses."
    For information on meeting invitations, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Invitation (invitee--action already taken) -> tmpContext = "16"
tmpContext
    1S2S
    You can make changes to a meeting invitation if necessary.
    If you have not already done so, click Edit Document.
    Make changes in any of
    the calendar entry
    fields Notes displays.
    change your response to the meeting invitation, choose Actions - Other and select
    a different response.
    Click Save and Close.
    For information on meeting invitations, choose Help - Help Topics, select How do I...?, select Do Everyday Tasks, and select 07 Use the Calendar, Assign Tasks, and Schedule Meetings.
    Propose alternative time/location -> tmpContext = "17"
tmpContext
    1S2S
    You proposed a different time or location for the meeting. Notes sends this counter-proposal to the meeting chairperson.
    When the chairperson accepts or declines the proposal, Notes sends you the chairperson's response.
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
B@BuW8
Uo-xO
$FormPublicAccess
$TITLE
$INFO
$$ScriptName
$BODY
$ACTIONS
$PublicAccess
New Memo.
    0S0E
Delete
    0S0E
Move To Folder...
    0S0E
_Forward
Reply
Reply
    0S0E
Reply With History@
Reply with history
    0S0E
Categori_zeK
_Edit Document
Send
Resend
NonDelivery Report
Not a Delivery Failure Report
You cannot Resend a message unless it is a Delivery Failure Report.
    6S12S17S23S
Convert To TaskK0
ConvertToTask
_Move To Folder...
_Remove From Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$Name
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
Archive Profile
Times New Roman
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub ProcessExistingArchiveDB
Declare Sub ProcessNonExistingArchiveDB
Declare Sub ProcessArchiveDbExists
Declare Sub CreateNewArchiveDB
'++LotusScript Development Environment:2:5:(Declarations):0:10
%INCLUDE "lsconst.lss"
Dim s As NotesSession
Dim w As NotesUIWorkspace
Dim db As NotesDatabase
Dim existingdb As NotesDatabase
Dim archivedb As NotesDatabase
Dim view As NotesView
Dim note As NotesDocument
Dim profile As NotesDocument
Dim archivedoc As NotesDocument
Dim doc As NotesUIDocument
Dim DocWasSaved As Integer
Dim DoNotClose As Variant
Dim ExistingServer As String
Dim ExistingPath As String
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
'++LotusScript Development Environment:2:2:ProcessExistingArchiveDB:1:12
Sub ProcessExistingArchiveDB
an existing archive already exists and the user has choosen to create a new one
this function gets called on one of two occasions
either the document has a value in the tmpArchivePath field
or the user entered a server and path that has an existing database
we need to handle both cases
%END REM

End Sub
'++LotusScript Development Environment:2:2:ProcessNonExistingArchiveDB:1:8
Sub ProcessNonExistingArchiveDB
     On Error Goto ProcessError
     On Error 4005 Goto DbCreateError
     'render the dialog box to get the location of the archive database
     If (w.DialogBox("(ArchiveProfileDlg)",True,True,"Specify New Location")) Then
          'see if the archive database exists
          Set archivedb = New NotesDatabase(note.ArchiveServer(0),note.ArchivePath(0))
          If (archivedb.IsOpen) Then
               Msgbox "Database already exists. Enter a new location"
               ProcessNonExistingArchiveDB
          Else
               Set archivedb = db.CreateCopy(note.ArchiveServer(0),note.ArchivePath(0))
               archivedb.Title = db.Title & " (Archive)"
          End If
          Call doc.Reload
          Call doc.Refresh
     Else
          note.ArchiveServer = ""
          note.ArchivePath = ""
     End If
     Exit Sub
DbCreateError:
     Select Case Msgbox("Error creating archive database. The server may be down or you don't have access to create new databases on the server. Click Yes to try a different location now or No to cancel.",36,"Error")
     Case 6
          ProcessNonExistingArchiveDb
     End Select
     Exit Sub
ProcessError:
     Msgbox Error & " - (ProcessNonExistingArchiveDB)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:ProcessArchiveDbExists:1:8
Sub ProcessArchiveDbExists
     'this function gets called if a database already exists in the tmpArchiveServer field
     'render the dialog box to get the location of the archive database
     On Error 4005 Goto DbCreateError
     If (w.DialogBox("(ProcessExistingDbDlg)",True,True,"Specify New Location")) Then
          On Error Resume Next
          'see if the archive database exists
          Set archivedb = New NotesDatabase(note.ArchiveServer(0),note.ArchivePath(0))
          If (archivedb.IsOpen) Then
               Msgbox "Database already exists. Enter a new location"
               ProcessArchiveDbExists
          Else
               Call CreateNewArchiveDB
               archivedb.Title = db.Title & " (Archive)"
          End If
          Call doc.reload
          Call doc.refresh
     End If
     Exit Sub
DbCreateError:
     Select Case Msgbox("Error creating archive database. The server may be down or you don't have access to create new databases on the server. Click Yes to try a different location now or No to cancel.",36,"Error")
     Case 6
          ProcessNonExistingArchiveDb
     End Select
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:CreateNewArchiveDB:1:8
Sub CreateNewArchiveDB
     On Error 4005 Goto DbCreateError
     On Error Goto ProcessError

'first, create the archive database
     Set archivedb = db.CreateCopy(note.ArchiveServer(0),note.ArchivePath(0))

'if the profile says to copy new documents, then copy them now
     If (note.CopyOptions(0) = "1") Then
          Set allDocs = existingdb.AllDocuments
          For i = 1 To allDocs.Count
               Set archivedoc = allDocs.GetNthDocument(i)
               Call archivedoc.CopyToDatabase(archivedb)
          Next
     End If

'if the profile says we should delete the original archive database, then remove it
     If (note.DeleteOptions(0) = "1") Then Call existingdb.Remove

     Exit Sub
DbCreateError:
     Select Case Msgbox("Error creating archive database. The server may be down or you don't have access to create new databases on the server. Click Yes to try a different location now or No to cancel.",36,"Error")
     Case 6
          ProcessNonExistingArchiveDb
     End Select
     Exit Sub
ProcessError:
     Msgbox Error & " - (ProcessNonExistingArchiveDB)"
     Exit Sub
End Sub
 Archive Profile'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Queryclose From Source Call Queryclose
     On Event Querysave From Source Call Querysave
     On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)

     If (DocWasSaved = False) Or (profile Is Nothing) Or DoNotClose Then Exit Sub

     ItemList = profile.Items
     Forall n In ItemList
          profile.RemoveItem(n.Name)
     End Forall
     note.CopyAllItems profile
     profile.SaveOptions = "1"
     profile.save True, True

End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)

     DocWasSaved = True
     DoNotClose = False
     If Not(profile Is Nothing) Then note.SaveOptions = "0"
     If (note.ArchivePath(0) = "") Then Msgbox "You will need to specify a location of the archive database before you can archive documents.",16
     source.Reload
     source.RefreshHideFormulas
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
     'initialize global variables
     Set note = source.Document
     Set w = New NotesUIWorkspace
     Set s = New NotesSession
     Set db = s.CurrentDatabase
     Set view = db.GetView("Archiving")
     Set doc = source
     'turn off auto reload to make processing faster
     source.AutoReload = False
     'if this is not a new doc, we don't need to continue
     If Not (source.IsNewDoc) Then Exit Sub
     'get the existing profile
     key = "Archive Profile"
     Set profile = view.GetDocumentByKey(key,False)
     If profile Is Nothing Then
          'an existing profile was not found
          note.ProtectFromArchive = 1
          note.ExcludeFromView = "D"
          note.From = "Archiving"
          note.Subject = "Archive Profile"
          note.Categories = "(Archive)"
          Call note.ReplaceItemValue("_ViewIcon", 11)
          source.reload
     Else
          'copy the profile fields to this document
          ItemList = note.Items
          Forall n In ItemList
               note.RemoveItem(n.Name)
          End Forall
          profile.CopyAllItems note
          source.Reload
          If source.EditMode Then source.Refresh
     End If

     DocWasSaved = False

End Sub
K     ,`
Archive Profile
ArchiveExpired
Archive Expired documents | Yes
    after
ExpiredLife
Number cannot be negative.{
    3S4S6S11SExpiredLife
    days
ArchiveInactive
Archive documents which have no activity | Yes
    after
DocumentLife
Number cannot be negative.{
    3S4S6S11SDocumentLife
    days
ArchiveLog
Generate an Archive Log each time an archive occurs | Yes
IncludeDoclinks
Include document links | Yes
    Archive Profile editors:
ProfileEditors
    Archive Server:
ArchivePath
ArchiveServer
Local
ArchiveServer
    3S4S9S10S12S14StmpArchiveServer
    Archive Path:
ArchivePath
tmpArchivePath
Categori_ze
_Edit Document
Send Docu_ment
_Forward
Close
    0S0E
Save Profile
    0S0E
Specify Archive Location'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

'see if an archive database already exists based upon some field values
     If (Len(note.tmpArchivePath(0)) >0) Then
          If (note.tmpArchiveServer(0) = "Local") Then
               Fullpath$ = note.tmpArchivePath(0)
               ExistingServer = ""
          Else
               Fullpath$ = note.tmpArchiveServer(0) + "!!" + note.tmpArchivePath(0)
               ExistingServer = note.tmpArchiveServer(0)
          End If
          ExistingPath = note.tmpArchivePath(0)
          Set existingdb = New NotesDatabase(ExistingServer,ExistingPath)
          If (existingdb.IsOpen) Then
               Select Case Msgbox("The database (" + Fullpath$ + ") already exists. To create a new database, select OK, otherwise click Cancel",33,"Database already exists")
               Case IDOK: ProcessArchiveDBExists
               End Select
          Else
               ProcessNonExistingArchiveDB
          End If
     Else
          ProcessNonExistingArchiveDB
     End If
End Sub
InstructionsF
(ArchiveInstructions)
    2S4S
_Move to Folder...
_Remove from Folderr
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
DocLife
ArchiveDate
ObsoleteLife
$ManualArchivers_O
$TITLE
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
ExpiredLife
DocumentLife
$BODY
$ACTIONS
$SCRIPTOBJ_6
Times New Roman
 (ArchiveInstructions)
Archive Profile Help
The Archive Profile allows you to specify which documents should be removed from the current database and stored in an archive database.  This allows you to keep your discussion up-to-date with only the latest topics.
You can choose the following in your ArchiveProfile:
    Archive expired documents
        Choose this option if you wish to archive documents which have been marked as expired. Indicate the number of days to wait before the expired documents are archived.
    Archive documents which have no activity
        Choose this option if you wish to archive documents which have had no activity. Indicate the number of days to wait before the inactive documents are archived.
    Generate an Archive Log each time an archive occurs
        Choose this option if you wish to have an Archive Log created when documents are archived.  You can also indicate if you would like document links to the archived documents included in the Archive Log.
    Specify Archive Location:
        Click on this button to specify the server and filename of the Archive database. The archive database is created for you based upon the values specified in the dialog box.
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folderm
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$ScriptName
$BODY
$ACTIONS
$PublicAccess
Temporary Export Certificate
"Helvetica
 Temporary Export Certificate'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)

     On Error Resume Next
     source.Document.PutInFolder("Temporary Export Certificates")

End Sub
FieldCle
MicrosoftWord R
.WPD;*.WPT;*.DOC
Certificate for Temporary Export of

Lotus Notes, North American version
    Personal information:
    Name:
    Company name:
CompanyName
    Travel information:
    Destination(s):
Agreement
Destination
You must enter a destination.
    3S4S5S6S7S8S10S15S
Destination
    Product(s)
Lotus Notes (North American version)
Agreement
Product
You must enter a product.
    3S4S5S6S7S8S10S15S
Product
    U.S. departure date:
Only do translation if not already in time format.
DepartureDate
DepartureDate
    0R7S15S
pcDate
DepartureDate
    0RR1S2S
TodayInt,
    0RR1S2S
ConNext
pcDate
nextG
    0R1S2S8S11S13S
AdjustAmount
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
    0R1S2S4RS8E11RS13E13RS9E20RS13E22RS8E29RS13E31RS8E38RS13E40RS8E47RS13E49RS8E56RS13E58RS8E65RS13E67RS8E
AdjustAmount
ConNext
pcDateW
    0RR3S4S5S6S8S19S
AdjustAmount
ConNext
TodayInt#
    0R6S8S10S20S22S24S
Agreement
DepartureDate
You must enter a departure date.{
    3S4S5S6S7S8S10S15S
DepartureDate
    U.S. return date:
Only do translation if not already in time format.
ReturnDate]
ReturnDateK
    0R7S15S
pcDate
ReturnDatea
    0RR1S2S
TodayInt,
    0RR1S2S
ConNext
pcDate
nextG
    0R1S2S8S11S13S
AdjustAmount
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
    0R1S2S4RS8E11RS13E13RS9E20RS13E22RS8E29RS13E31RS8E38RS13E40RS8E47RS13E49RS8E56RS13E58RS8E65RS13E67RS8E
AdjustAmount
ConNext
pcDateW
    0RR3S4S5S6S8S19S
AdjustAmount
ConNext
TodayInt#
    0R6S8S10S20S22S24S
ReturnDate
Agreement
I hereby certify|Yes
    , by checking this box, that I have complied with the requirements of U.S. export law, specifically, 22 CFR 123.27, pertaining to the "temporary" export of cryptographic products for "personal" use.
    I certify that:
    the use of the product identified above was solely for personal use and not for sales, demonstration or marketing purposes;
    only one copy of the product identified above was exported and it remained in my possession (and was not sent separately) during this travel;
    I did not travel to a country to which exports are prohibited (countries on which a "ban or embargo" has been
    imposed
     by the U.S. government or United Nations); and
    I have no knowledge or reason to believe the products were copied, transferred, stolen, or compromised while abroad.
   .   .
   .   .
    Explanation of law:
    The Personal Use Exemption authorizes temporary export of cryptographic products for personal use by U.S.citizens and lawful permanent residents when travelling abroad. The exemption requires the traveller to keep certain records and report instances where the product was stolen or otherwise compromised. There are no other export related requirements such as export licenses or Shipper's Export Declarations.
    Requirements:
    - Use of the cryptographic items must be for personal use and not for sales, marketing, or demonstration purposes
    - Only one copy of a cryptographic item may be exported (i.e. one phone, one laptop,etc.) and one copy each of cryptographic software to be used on simultaneously exported hardware.
    - The Exemption cannot be used for travel to countries which have been identified as supporting terrorism or those under certain United Nations embargoes. These countries currently are Cuba, Iran, Iraq, Libya, North Korea, Sudan and Syria.
    - The cryptographic products must be hand carried (may be included with accompanying baggage), not sent separately, and must be returned to the U.S. at the completion of the stay abroad. Upon request of a U.S. Customs officer, the exporter will submit the products for inspection.
    - The exporter must keep records for five years from the date the trip commenced. The records must include the description of the handcarried cryptographic products; dates and countries visited; dates of leaving the U.S. and re-entry. The record is to contain a statement that all conditions of the Exemption as outlined above were met and that no products were stolen, transferred or otherwise compromised.
    - The exporter also has a duty to report to the U.S. Department of State, Office of Defense Trade Controls, any loss, transfer, copy, or compromise of the product while abroad within 10 days of returning to the U.S. (If the exporter has a reason to know any of these events has occurred he or she should immediately inform the Department of State.)
Temporary Export Certificate -
Destination
DepartureDate
    1S2S3S4S5S6S
Subject
_ViewIcon
ExcludeFromView
Closeo
    0S0E
_Edit Document
Categori_ze
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$WINDOWTITLE
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$ACTIONS
Squiggle with BackdropStdNotesLtr22CU3
CN=Paul DiCristina/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
MarqueeStdNotesLtr34CU3
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############
From The DeskStdNotesLtr8CU3
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################
$FORWARDSEPCU3
CN=Mussie Shore/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################
TapeStdNotesLtr25CU3
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
Yellow GradientStdNotesLtr33CU3
CN=Mussie Shore/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
Buck Rogers MailStdNotesLtr2CU3
CN=Mussie Shore/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
TacksStdNotesLtr24CU3
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
(ArchiveProfileDlg)1CDU
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
_Special\_Memo To Database ManagerMemow
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
(LetterHeadChooser)
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCDw###########
GatewayStdNotesLtrGatewayCU3
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
##########################################################
&Arial
 StdNotesLtr22

tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
)RF~E
$TITLE
$INFO
$Header
$$ScriptName
$BODY
&Arial
 StdNotesLtr34
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$ScriptName
$BODY
 StdNotesLtr8
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$ScriptName
$BODY
----------------------
 Forwarded by
ForwardedFrom
ForwardedDate
---------------
--------
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
6/Jd-
$TITLE
$INFO
$Header
ForwardedDate
$BODY
 StdNotesLtr25
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$ScriptName
$BODY
 StdNotesLtr33
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$Header
$$Script_O
$$ScriptName
$BODY
&Arial
 StdNotesLtr2
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$Header
$$ScriptName
$BODY
 StdNotesLtr24
tmpDisplayFrom_Preview
tmpFrom
tmpDisplayDate_Preview
tmpDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$ScriptName
$BODY
(ArchiveProfileDlg)
Local
ArchiveLocation
Locally | LocalOn Server | Server
ArchiveLocation
Local
    1S2S
    0S0E
ArchiveServer
ArchiveLocation
Local
ArchiveServer
ArchiveServer
    4RS4E6R7S8S10RS4E12R13S14S16RS4E20S23R
ArchiveServer
CurrentPath
    1S2S6S
CurrentFile
CurrentPath
    0R1S2S6S
FileOnly
CurrentPath
CurrentFile
Macintosh
CurrentPath
CurrentFile
CurrentPath
CurrentFile
CurrentFile
    0R1S2S8S11S15S19S20S21S22S26S29S33S36S37S38S39S40S44S47S51S54S
DirOnly
CurrentPath
Macintosh
CurrentFile
CurrentFile
CurrentFile
Macintosh
CurrentPath
CurrentFile
CurrentPath
CurrentFile
    0R1S2S8S11S14S15S16S21S23S2E24S27S28S34S36S37S39S43S45S46S49S50S51S52S53S57S60S64S66S67S69S70S71S72S73S77S80S84S86S87S89S
dftvalue
DirOnly
FileOnly"
CurrentPath
    0RR1S2S3S4S7S8S10S12S13S17S
Macintosh
dftvalue
dftvalue
dftvalue
dftvalue
dftvalue
    0R3S4S5S6S21S22S23S24S25S26S
ArchivePath
Please specify the filename of the archive database
    3S4S6S11SArchivePath
    Documents are archived:
    Archive database is on server:
    Archive file:
servers
names.nsf
($ServersLookup)
    1S2S
selectedserver
Server
Please select a server to create your archive database on.
ArchiveServer
servers
    0R1S2S
ArchiveServer
selectedServer
    0R1S2S3S
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
@If(@IsN
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$ScriptName
$BODY
$PublicAccess
Times New Roman
VersionOpt|
    6S7S9S14S
$VersionOpt
    0R1S2S3S
SavedOnce
    0R1S2S3S
PostedDate(
    0R1S2S3S
DeliveredDate
    0R1S2S3S
$AutoEditMode
    0R1S2S3S
MailSaveOptions
    0R1S2S3S
VersionOpt
    0R4S
Memo To Database Manager
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "EmailProcessing"
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
 Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Querysave From Source Call Querysave
     On Event Queryclose From Source Call Queryclose
     On Event Postmodechange From Source Call Postmodechange
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)

     Set ws = New NotesUIWorkSpace
     Set uidoc = source

     Call EmailOpen

End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)

     Call EmailSave(Continue)

End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)

     Call EmailClose(Continue)

End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)

     Call EmailModeChange

End Sub
    Always hidden:
Principal
CalendarProfile
Owner
    1S2S3S7S
Principal
Principal
    0R3S4S6S8S
FromPerson memo is from.
    0S0E
    0S0E
Encrypt
    0S0E
DefaultMailSaveOptions
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
    From:
Principal
Principal
FromDomain
FromDomain
FromDomain
FromDomain
    7S10S15S16S18S22S25S29S32S33S37S39S42S43S45S47S48S49S55S58S62S65S71S
FromName
Principal
Principal
    0RR1S2S9S11S15S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom
     on
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDateTime/date memo was created or mailed.
ReplyDate
ReplyTo
    1S2S3S4S5S6S
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Sent by:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
SendTo
CopyTo
  cc:
CopyTo
    1S8S13S14S2E17S18S21S28S31S
SendTo}
    0S0E
SendToList of primary people to send memo.
    cc:
CopyTo}
    0S0E
CopyToList of people to send a copy of the memo.
DeliveredDate
BlindCopyTo
(bcc:
BlindCopyTo
    3S4S5S6S7S8S10S11S12S16S18S19S21SDisplayBlindCopyTo
    bcc:
BlindCopyTo
    0S0E
BlindCopyToList of undisclosed people to send copies of memo.
    Subject:
PhoneCaller
Phone Call:
PhoneCaller
Subject
    7S8S9S11S:
Subject
    0S0E
SubjectSubject of memo.
Edit Document
ForwardK
    0S0E
New Memo.
    0S0E
Delete
    0S0E
_Move To Folder...
Delivery Information...Kz
DeliveryInfo
Delivery Information
    4S5S6S7S8S9S10S12S
_Forward
Reply
Reply
    0S0E
Reply With History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Address...
    0S0E
PostedDateh
    5S6S7S8S
Close
    0S0E
IsMailStationeryh
PostedDateh
    6S7S
Save As Draft
tmpAction
SaveAsDraft
    1S2S3S
IsMailStationeryh
PostedDateh
    4S5S
Save and File
    7S9S
tmpAction
SaveAndFile
    0R1S2S3S
IsMailStationeryh
PostedDateY
PostedDateh
    4S5S9S10S16S17S18S19S
PromptValue
DefaultMailSaveOptions
Save when sent
Do you wish to save a copy of this Memo?
DefaultMailSaveOptions
    1S2S5S6S8S14S17S
SaveOptions
PromptValue
SaveOptions
PromptValue
    0RR1S2S5S6S9S14S
tmpAction
DefaultMailSaveOptions
Mailing
    0RR1S2S3S6S7S9S11S
MailOptions
    0R1S2S3S
    0R7S9S
tmpAction
SaveOptions
SendAndFile
    0RR1S2S3S6S7S9S11S
    0R7S9S
PostedDateh
IsMailStationeryh
    5S6S7S8S10S11S
Send And File...
    4S11S13S19S
    0RR7S9S
tmpAction
DefaultMailSaveOptions
Mailing
    0RR1S2S3S6S7S9S11S
MailOptions
    0R1S2S3S
    0R7S9S
tmpAction
SendAndFile
    0RR1S2S3S
    0R7S9S
PostedDateh
IsMailStationeryh
    5S6S7S8S10S11S
Delivery Options...K
DeliveryOptions
Delivery Options
    4S8S
_ViewIcon
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
    0RR1S2S3S5RS3E6S7S8S9S11S13RS3E14S15S17S19RS3E20S21S23S25RS3E26S27S29S31RS3E32S33S35S37RS3E38S39S41S43RS3E44S45S47S49RS3E50S51S53S55RS3E56S57S59S61RS3E62S63S65S67RS3E68S69S71S73RS3E8
PostedDateh
    5S6S7S8S
Special Options...
ReplyDate
ReplyDate
    1S2S3S
ReplyTo
ReplyTo
    0R1S2S3S
(Advanced Options)
Special Options
    0R6S10S13S15S
tmpDisplayReplyInfo
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    0R1S2S3S4S5S8S9S11S13S14S15S17S18S21S22S24S26S27S28S
DueDateTime
ReplyDate
    0R1S2S3S
PostedDateh
    5S6S7S8S
_Remove From Folder...
Categori_zeK
SSend
PostedDateY
    0S0E
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
tmpNewDoc
    1S2S
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New GroupK,
NewGroup
    0S0E
tmpnewdoc
    1S2S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$$FormPostOpenAction
$TypeIcon
ExpireDate
ReplyDate
ComposedDate
$TITLE
$AUTOLAUNCH
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$ACTIONS
$SCRIPTOBJ_20
$SCRIPTOBJ_21
$SCRIPTOBJ_22
Choose Letterhead
(LetterHeadChooser)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postrecalc(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postrecalc From Source Call Postrecalc
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
     Dim s As New notesSession
     Dim w As New notesuiworkspace
     Dim doc As notesuidocument
     Set doc=w.currentdocument

     Dim Note As NotesDocument
     Set Note = Doc.Document

     s.SetEnvironmentVar "DefaultLogo", Note.LetterHeadChoices(0)
     Doc.Close
     w.ComposeDocument "","","(LetterHeadChooser)"
End Sub
SaveOptions
FromPerson memo is from.
DefaultLogo
stdNotesLtr0
DefaultLogo
    From:
FromDomain
FromDomain
FromDomain
FromDomain
    7S10S18S19S23S25S28S29S31S33S34S35S41S44S48S51S57S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
    0RR1S2S3S4S8StmpDisplayFrom_Preview
     on
PostedDateh
PostedDate
    7S9S
tmpDisplayDate_PreviewTime/date memo was created or mailed.
    Preview  letterheads for new Memos and Replies in the list below.
    When you find one you like, press Done.
LetterHeadChoices
Plain Text|StdNotesLtr0Bouncy Earth|StdNotesLtr1Buck Rogers Mail|StdNotesLtr2Centered and Bold|StdNotesLtr3Decco|StdNotesLtr4Falling Spheres|StdNotesLtr5First Initial|StdNotesLtr6Frank Lloyd|StdNotesLtr7From The Desk|StdNotesLtr8Gateway|StdNotesLtrGatewayGeometry |StdNotesLtr9Gray Gradient with Lines|StdNotesLtr13Green and Yellow Diamond|StdNotesLtr14Marquee|StdNotesLtr34Metal Plate|StdNotesLtr15Pencil and Grid|StdNotesLtr16Pony Express|StdNotesLtr17Purple Geometry|StdNotesLtr18Reversed Teal|StdNotesLtr20Slashed Lines with Globe|StdNotesLtr21Squiggle with Backdrop|StdNotesLtr22Squiggly Line|StdNotesLtr23Tacks|StdNotesLtr24Tape|StdNotesLtr25Teal and Yellow Lines|StdNotesLtr26Three Dimensional Relief|StdNotesLtr27Torn Paper|StdNotesLtr28Triangle with Dots 1|StdNotesLtr29Triangle with Dots 2|StdNotesLtr30Wild Confetti|StdNotesLtr32Yellow Gradient|StdNotesLtr33
DefaultLogo
    0S0E
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Foldert
Choose New Letter Head
DefaultLogo
DefaultLogo
    1S2S
Logos
    0RR1S2S
The following list should be translated. It is presented to user in list box
    0R1S
LogoNames
Three
Buck Rogers
Centered Rich
Confetti
Falling Balls
Frank Lloyde
    0R1S2S
Select a Letterhead
Select the Letterhead which will appear at the top of all new Memos and Replys
DefaultLogo
Logos
LogoNames
LogoNames
    0R1S2S14S16S19S
DefaultLogo
LogoNames
Logos
    0RR4S8S10S
preview
Done
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$WINDOWTITLE
$$Script_O
$$ScriptName
$$FormScript
$BODY
$ACTIONS
&Arial Narrow
&Arial
 StdNotesLtrGateway
    Hidden:
tmpDisplayDate_Preview
tmpDate
tmpDisplayFrom_Preview
 on "
tmpDisplayDate_Preview
D0S2V
    3S4S5S6S10StmpFrom
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$Script_O
$$ScriptName
$BODY
Times New Roman
About Mail
 @  @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
    The Mail template is used to create a database to send and receive electronic mail using Notes. The template can be used to create a mail database either on a local workstation or on a server.
    The Mail template also contains Calendaring and Scheduling features which can be used for personal time management, meeting and appointment scheduling, or to delegate work to other people. The Calendar View provides a desktop calendar for ease in viewing scheduled appointments.
    Please consult Help/Help Topics for more information on how to use the features of the Mail template.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
z^SUK-e
$INFO
$BODY
P5~K-!W
AutoProcessNotices
5SfL3
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
(Delegation Profile)DelegationProfile1
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=Irisw#################
TaskTaskDw
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
(Calendar Profile)CalendarProfile1
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=Irisw
##########################################################
(Notice)Noticew1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################################
_Calendar EntryAppointmentw1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
(Copy into\New Group) | NewGroup
E4fL3
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "NoticeProcessing"
Use "NoticeResponses"
Use "RepeatProcessing"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Function CanAutoProcess As Integer
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim FromList As Variant
Dim autodocs As NotesDocumentCollection
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
     Dim context As Integer

     On Error 4005 Resume Next ' handle the case if the parent document cannot be found

     Set session = New NotesSession
     Set db = session.CurrentDatabase
     Set autodocs = db.UnprocessedDocuments
     IsAgentProcessing = True
'if we don't have any documents to process, we can exit now
     If (autodocs.count = 0) Then Exit Sub

     Set profile = db.GetProfileDocument("CalendarProfile")
     FromList = profile.MeetingsPeople
     Owner = profile.Owner(0)
     If (Owner = "") Then Owner = session.UserName

     Set note = autodocs.GetFirstDocument
     While Not (note Is Nothing)
'we only need to process meeting invitations from other people; do not process meeting responses back from invitees
          If (note.Form(0) = "Notice") And (note.Chair(0) <> Owner) Then
'make sure we can process this notice
               If (CanAutoProcess) Then
'determine the type of notice being sent to us
                    Select Case note.NoticeType(0)
                    Case ORS_MSGTYPE_INVITE,ORS_MSGTYPE_DELEGATE
'check for notice updates; if we have any, then do not process this note
                         Call GetMostRecentUpdateNotice(context)
                         If (UpdateResponses(0).misc2 = "") Then                                                 'we didn't find any update notices that we care about
'we are receiving an invitation
                              If (note.HasItem("RepeatIds")) Then
'this is a repeating meeting; determine if this is a broadcast notice or not
                                   If (note.Broadcast(0) <> "1") Then
                                        note.tmpAction = "Accept"
                                        Call AcceptInvitation
                                   Else
                                        note.tmpAction = "AddCalendar"
                                        Call UpdateOriginalInvitation(note)
'see if we should remove this from the inbox
                                        If (profile.AutoRemoveFromInbox(0) = "1") Then note.RemoveFromFolder("($Inbox)")
                                   End If
                                   Action = "Accept"
                                   InstancesCreated = False
                                   Call RepeatSave
                              Else
'this is a standard invitation
                                   If Not (CheckIfConflictExists) Then
                                        If (note.Broadcast(0) = "1") Then
                                             note.tmpAction = "AddCalendar"
                                             Call UpdateOriginalInvitation(note)
                                        Else
                                             note.tmpAction = "Accept"
                                             Call AcceptInvitation
                                        End If
                                   Else
                                        note.Subject = "(Time Conflict) " & note.Subject(0)
                                        Call MarkTempFields(note)
                                        Call note.Save(True,True)
                                   End If
                              End If
                         End If
                    Case ORS_MSGTYPE_RESCHEDULE
'the meeting is being rescheduled
                         Set parentnote = db.GetDocumentByUNID(note.ParentDocumentUNID)
                         If (parentnote Is Nothing) Then
                              note.Subject = "(Missing Parent Document) " & note.Subject(0)
                              Call MarkTempFields(note)
                              Call note.Save(True,True)
                         Else
'get the most recent update notice and see if this note is the most recent one; we only process the most recent update notice
                              Call GetMostRecentUpdateNotice(context)
                              If (note.UniversalID = UpdateResponses(0).misc2) Then
'we will only process the reschedule if the SequenceNum of the reschedule is greater than the parent SequenceNum
                                   If (note.SequenceNum(0) > parentnote.SequenceNum(0)) Then
'if this is a repeating meeting, then handle this differently
                                        If (note.HasItem("OrgRepeat")) Then
                                             Call SaveOriginalValues
                                             note.tmpAction = "AddCalendar"
                                             Call UpdateOriginalInvitation(parentnote)
                                             Action = ""
                                             Call RepeatSave
                                        Else
                                             If Not (CheckIfConflictExists) Then
                                                  If (note.Broadcast(0) = "1") Then
                                                       note.tmpAction = "AddCalendar"
                                                       Call UpdateOriginalInvitation(parentnote)
                                                  Else
                                                       note.tmpAction = "Accept"
                                                       Call AcceptInvitation
                                                  End If
                                             Else
                                                  note.Subject = "(Time Conflict) " & note.Subject(0)
                                                  Call MarkTempFields(note)
                                                  Call note.Save(True,True)
                                             End If
                                        End If
                                   End If
                              End If
                         End If
                    Case ORS_MSGTYPE_CANCEL,ORS_MSGTYPE_STATUSUPDATE
'if the orgstatus <> ORS_STATUS_REMOVED, then the chair is requiring us to attend
'we only want to look for a parent if this document is a response; the original invitation might be stamped as a cancel
                         If (note.IsResponse) Then
                              Set parentnote = db.GetDocumentByUNID(note.ParentDocumentUNID)
                              If (parentnote Is Nothing) Then
                                   note.Subject = "(Missing Parent Document) " & note.Subject(0)
                                   Call MarkTempFields(note)
                                   Call note.Save(True,True)
                              Else
                                   If (note.OrgStatus(0) <> ORS_STATUS_REMOVED) And (note.NoticeType(0) = ORS_MSGTYPE_STATUSUPDATE) Then
'currently, we do nothing -> you could call CommitAppointment passing it (parentnote)
                                   Else
'get the most recent update notice and see if this note is the most recent one; we only process the most recent update notice
                                        Call GetMostRecentUpdateNotice(context)
                                        If (note.UniversalID = UpdateResponses(0).misc2) Then
'decommit the parent document if the SequenceNum on the note is >= the parent SequenceNum
                                             If (note.SequenceNum(0) >= parentnote.SequenceNum(0)) Then
                                                  Call DeCommitAppointment(parentnote)
                                                  'we need to do this here since this is not handled in QuerySave
                                                  If note.HasItem("OrgRepeat") Then
                                                       Action = "Cancel"
                                                       Call RepeatSave
                                                  End If
                                             End If
                                        End If
                                   End If
                              End If
                         End If
                    End Select
               End If
          End If
          Call session.UpdateProcessedDoc(note)
          Set note = autodocs.GetNextDocument(note)
     Wend
End Sub
'++LotusScript Development Environment:2:1:CanAutoProcess:1:8
Function CanAutoProcess As Integer
     Dim namAllowed As NotesName
     Dim namPrincipal As NotesName

'returns true if the given invitation can be autoprocessed or false if it can't
     CanAutoProcess = False
'if there are no items in the fromlist, then we can process this
     If (FromList(0) = "") Or (FromList(0) = "*") Then
          CanAutoProcess = True
          Exit Function
     End If

     Set namPrincipal = New NotesName(note.Principal(0))

     Forall f In FromList
          Set namAllowed = New NotesName(f)

          If Lcase(namPrincipal.Canonical) = Lcase(namAllowed.Canonical) Then
               CanAutoProcess = True
               Exit Forall
          End If

          If Lcase(namPrincipal.Common) = Lcase(namAllowed.Common) Then
               CanAutoProcess = True
               Exit Forall
          End If
     End Forall
End Function
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
<g$jz" O
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Delegation Profile
&Arial
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub GetAclEntries
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim acl As NotesACL
Dim aclentry As NotesAclEntry
Dim nextaclentry As NotesAclEntry
Dim note As NotesDocument
Dim db As NotesDatabase
Dim nam As NotesName
Dim session As NotesSession
Dim ReadCal() As Variant
Dim WriteCal() As Variant
Dim ReadMail() As Variant
Dim WriteMail() As Variant
Dim EditMail() As Variant
Dim DeleteMail() As Variant
Dim OtherUsers() As Variant
Dim DoNotEdit As Integer
'++LotusScript Development Environment:2:2:GetAclEntries:1:8
Sub GetAclEntries

     note.ReadCalendar = ""
     note.WriteCalendar = ""
     note.ReadMail = ""
     note.WriteMail = ""
     note.EditMail = ""
     note.DeleteMail = ""

     Redim ReadCal(0)
     Redim WriteCal(0)
     Redim ReadMail(0)
     Redim WriteMail(0)
     Redim EditMail(0)
     Redim DeleteMail(0)
     Redim OtherUsers(0)

     Set aclentry = acl.GetFirstEntry
     Do Until aclentry Is Nothing
          Select Case aclentry.Level
          Case ACLLEVEL_NOACCESS
               If aclentry.Name = "-Default-" Then
                    If aclentry.IsPublicReader Then
                         note.PublicRead = "1"
                    Else
                         note.PublicRead = ""
                    End If
                    If aclentry.IsPublicWriter Then
                         note.PublicWrite = "1"
                    Else
                         note.PublicWrite = ""
                    End If
               Else
                    If aclentry.IsPublicReader Or aclentry.IsPublicWriter Then
                         If aclentry.IsPublicReader Then
                              x = Ubound(ReadCal)
                              ReadCal(x) = aclentry.Name
                              Redim Preserve ReadCal(x + 1)
                         End If
                         Gosub CheckPublicWriter
                    Else
'These are other NoAccess people and we don't want to change them
                         x = Ubound(OtherUsers)
                         OtherUsers(x) = aclentry.Name
                         Redim Preserve OtherUsers(x + 1)
                    End If
               End If
          Case ACLLEVEL_READER
               x = Ubound(ReadMail)
               ReadMail(x) = aclentry.Name
               Redim Preserve ReadMail(x + 1)
               Gosub CheckPublicWriter
          Case ACLLEVEL_AUTHOR
               If aclentry.CanCreateDocuments Then
                    x = Ubound(WriteMail)
                    WriteMail(x) = aclentry.Name
                    Redim Preserve WriteMail(x + 1)
               End If
               If aclentry.CanDeleteDocuments Then
                    x = Ubound(DeleteMail)
                    DeleteMail(x) = aclentry.Name
                    Redim Preserve DeleteMail(x + 1)
               End If
               Gosub CheckPublicWriter
          Case ACLLEVEL_EDITOR
               x = Ubound(EditMail)
               EditMail(x) = aclentry.Name
               Redim Preserve EditMail(x + 1)
               If aclentry.CanDeleteDocuments Then
                    x = Ubound(DeleteMail)
                    DeleteMail(x) = aclentry.Name
                    Redim Preserve DeleteMail(x + 1)
               End If
               Gosub CheckPublicWriter
          Case Else
'These are Manager and Designers and we don't want to change them
               x = Ubound(OtherUsers)
               OtherUsers(x) = aclentry.Name
               Redim Preserve OtherUsers(x + 1)
          End Select
          Set aclentry = acl.GetNextEntry(aclentry)
     Loop

     note.ReadCalendar = ReadCal
     note.WriteCalendar = WriteCal
     note.ReadMail = ReadMail
     note.WriteMail = WriteMail
     note.EditMail = EditMail
     note.DeleteMail = DeleteMail

     Exit Sub

CheckPublicWriter:
     If aclentry.IsPublicWriter Then
          x = Ubound(WriteCal)
          WriteCal(x) = aclentry.Name
          Redim Preserve WriteCal(x + 1)
     End If
     Return

End Sub
 DelegationProfile'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Querysave From Source Call Querysave
     On Event Querymodechange From Source Call Querymodechange
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)

     Set session = New NotesSession
     Set note = source.document
     Set db = note.ParentDatabase
     Set acl = db.ACL

     Set aclentry = acl.GetEntry(session.Username)
     If aclentry Is Nothing Then
          Set nam = New NotesName(session.Username)
          Set aclentry = acl.GetEntry(nam.Common)
     End If

     If aclentry Is Nothing Then
          source.EditMode = False
     Elseif aclentry.level < ACLLEVEL_MANAGER Then
'You need to be a manager to edit the ACL
          DoNotEdit = True
          source.EditMode = False
     End If

'setting reload = false because these updates were already done in the preceeding agent
'(we needed to populate the fields before loading the profile in case we had to use read mode)
     source.AutoReload = False
'executing GetAclEntries in order to initialize the arrays
     GetAclEntries

     source.RefreshHideFormulas

End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)

     On Error Goto ErrorRoutine

'We are replacing existing ACL with the new values entered here (with the exception of OtherUsers)

     NewReadCal = note.ReadCalendar
     NewWriteCal = note.WriteCalendar
     NewReadMail = note.ReadMail
     NewWriteMail = note.WriteMail
     NewEditMail = note.EditMail
     NewDeleteMail = note.DeleteMail
     ListSize = Ubound(OtherUsers)

'For each list, see if they are already in the acl.
'If they are then change them - otherwise add them

     If note.PublicRead(0) = "1" Then
          note.ReadCal = ""
          NewReadCal = note.ReadCal
          EntryName = "-Default-"
          AccessLevel = ACLLEVEL_NOACCESS
          Gosub PostNewAccess
          aclentry.IsPublicReader = True
          aclentry.IsPublicWriter = False
     Else
          EntryName = "-Default-"
          AccessLevel = ACLLEVEL_NOACCESS
          Gosub PostNewAccess
          aclentry.IsPublicReader = False
          aclentry.IsPublicWriter = False
     End If

     If note.PublicWrite(0) = "1" Then
          note.WriteCal = ""
          NewWriteCal = note.WriteCal
          EntryName = "-Default-"
          AccessLevel = ACLLEVEL_NOACCESS
          Gosub PostNewAccess
          aclentry.IsPublicWriter = True
'If you can manage the calendar, you need to be able to read it as well
          aclentry.IsPublicReader = True
     Else
          EntryName = "-Default-"
          AccessLevel = ACLLEVEL_NOACCESS
          Gosub PostNewAccess
          aclentry.IsPublicWriter = False
     End If

     Forall x In NewReadCal
          If x <> "" Then
               EntryName = x
               AccessLevel = ACLLEVEL_NOACCESS
               Gosub PostNewAccess
               If aclentry.Level = ACLLEVEL_NOACCESS Then
                    aclentry.IsPublicReader = True
                    aclentry.IsPublicWriter = False
               End If
          End If
     End Forall

     Forall x In NewWriteCal
          If x <> "" Then
               EntryName = x
               AccessLevel = ACLLEVEL_NOACCESS
               Gosub PostNewAccess
               If aclentry.Level = ACLLEVEL_NOACCESS Then
                    aclentry.IsPublicWriter = True
'If you can manage the calendar, you need to be able to read it as well
                    aclentry.IsPublicReader = True
               End If
          End If
     End Forall

     Forall x In NewReadMail
          If x <> "" Then
               EntryName = x
               AccessLevel = ACLLEVEL_READER
               Gosub PostNewAccess
               If aclentry.Level = ACLLEVEL_READER Then
                    Gosub CheckPublicWrite
               End If
          End If
     End Forall

     Forall x In NewWriteMail
          If x <> "" Then
               EntryName = x
               AccessLevel = ACLLEVEL_AUTHOR
               Gosub PostNewAccess
               If aclentry.Level = ACLLEVEL_AUTHOR Then
                    aclentry.CanCreateDocuments = True
                    aclentry.CanDeleteDocuments = False
                    Gosub CheckPublicWrite
               End If
          End If
     End Forall

     Forall x In NewEditMail
          If x <> "" Then
               EntryName = x
               AccessLevel = ACLLEVEL_EDITOR
               Gosub PostNewAccess
               If aclentry.Level = ACLLEVEL_EDITOR Then
                    aclentry.CanDeleteDocuments = False
               End If
          End If
     End Forall

'now remove entries which have not been accounted for
     Set aclentry = acl.GetFirstEntry
     If OtherUsers(ListSize) = "" Then Redim Preserve OtherUsers(ListSize - 1)
     Do Until aclentry Is Nothing
          Set nextaclentry = acl.GetNextEntry(aclentry)
          NotFound = True
          Forall x In OtherUsers
               If x = aclentry.Name Then NotFound = False
          End Forall
          If NotFound Then aclentry.Remove
          Set aclentry = nextaclentry
     Loop

     ListSize = Ubound(OtherUsers) + 1
     Redim Preserve OtherUsers(ListSize)

     Forall x In NewDeleteMail
          If x <> "" Then
               Set aclentry = acl.GetEntry(x)
               Set nam = New NotesName(x)
               If aclentry Is Nothing Then
                    Messagebox "You must add " & nam.Common & _
                    " to either the ""Read and send"" or the ""Read, send, and edit"" list before adding them to the ""Delete"" list.", 0, "Error"
                    continue = False
                    Exit Sub
               Elseif aclentry.Level < ACLLEVEL_AUTHOR Then
                    Messagebox "You must add " & nam.Common & _
                    " to either the ""Read and send"" or the ""Read, send, and edit"" list before adding them to the ""Delete"" list.", 0, "Error"
                    continue = False
                    Exit Sub
               Elseif aclentry.Level > ACLLEVEL_EDITOR Then
                    EntryName = nam.Common
                    Gosub CannotChange
                    Messagebox nam.Common & " is currently a " & CurrentLevel & " of this database.  " &_
                    "Managers and Designers cannot be modified using the Delegation Profile.", 0, "Cannot Change " & CurrentLevel
               End If
               If aclentry.Level < ACLLEVEL_DESIGNER Then
                    aclentry.CanDeleteDocuments = True
                    OtherUsers(ListSize) = x
                    ListSize = ListSize + 1
                    Redim Preserve OtherUsers(ListSize)
               End If
          End If
     End Forall

'we save and re-instanciate at this point because we want to check current acl entries to see if this person should be able to delete
     'acl.save
     'Delete acl
     'Set acl= db.ACL



     acl.save

     GetAclEntries

     source.Reload
     source.RefreshHideFormulas

     Exit Sub

PostNewAccess:
     Set aclentry = acl.GetEntry(EntryName)
     If aclentry Is Nothing Then
          Set aclentry = New NotesAclEntry(acl, EntryName, AccessLevel)
     Else
'we don't want to downgrade designers and managers, but we may want to downgrade editors or authors
          If aclentry.Level < ACLLEVEL_DESIGNER Then
               aclentry.Level = AccessLevel
          Else
               Gosub CannotChange
               Messagebox nam.Common & " is currently a " & CurrentLevel & " of this database and can already " &_
               NewLevel & ".  Managers and Designers cannot be modified using the Delegation Profile.", 0, "Cannot Change " & CurrentLevel
          End If
     End If
     OtherUsers(ListSize) = EntryName
     ListSize = ListSize + 1
     Redim Preserve OtherUsers(ListSize)

     Return

CannotChange:
     Set nam = New NotesName(EntryName)
     If aclentry.Level = ACLLEVEL_DESIGNER Then
          CurrentLevel = "Designer"
     Else
          CurrentLevel = "Manager"
     End If
     Select Case AccessLevel
     Case ACLLEVEL_READER
          NewLevel = "read mail"
     Case ACLLEVEL_AUTHOR
          NewLevel = "send mail"
     Case ACLLEVEL_EDITOR
          NewLevel = "edit documents"
     Case Else
          NewLevel = "manage the calendar"
     End Select

     Return

CheckPublicWrite:
'If a reader or author is found in the NewWriteCal list then turn on public access write, else turn it off
     NameFound = False
     Forall y In NewWriteCal
          If y = EntryName Then
               NameFound = True
               Exit Forall
          End If
     End Forall
     If NameFound Then
          aclentry.IsPublicWriter = True
     Else
          aclentry.IsPublicWriter = False
     End If
     Return

ErrorRoutine:
     Messagebox Error & " (Save Delegation)"
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
     If DoNotEdit And source.EditMode = False Then continue = False
End Sub
.WK1;*.WR1;*
TIFF 5.0 Imag
=    o0ah
e    G0e
Delegation Profile
CalendarProfile
Owner
    4S6S7S
Owner of Mail File:
Owner
CalendarProfile
Owner
    1S2S6S
Owner
Owner
    0R3S4S6S8S
Owner
CalendarProfile
Owner
    4S6S7S
Owner of Mail File:
Owner
CalendarProfile
Owner
    1S2S6S
Owner
Owner
    0R3S4S6S8S
Owner_1
    Calendar Access
PublicRead
Everyone can read my Calendar|1
PublicRead
    1S2S
    Only the following people/groups can read my Calendar:
ReadCalendar
PublicWrite
Everyone can manage my Calendar|1
PublicWrite
    1S2S
    Only the following people/groups can manage my Calendar:
WriteCalendar
    Email Access
     (anyone with Email Access can also read Calendar entries)
    The following people/groups can
    1. Read my mail:
ReadMail
    2. Read and send mail on my behalf:
WriteMail
    3. Read, send, and edit any document in my mail file:
EditMail
    4. Delete mail (allowed for those who can send or edit mail):
DeleteMail
$NoPurge
$NoPurge
_Edit Document
_Forward
    0S0E
CancelF
SaveOptions
    1S2S3S
_Move To Folder...
_Remove From Folder
Categori_ze
Send Docu_ment
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$FormPublicAccess
$TITLE
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$NoPurge
$BODY
$ACTIONS
$PublicAccess
VersionOpt|
    6S7S9S14S
$VersionOpt
    0R1S2S3S
SavedOnce
    0R1S2S3S
PostedDate(
    0R1S2S3S
DeliveredDate
    0R1S2S3S
$AutoEditMode
    0R1S2S3S
MailSaveOptions
    0R1S2S3S
VersionOpt
    0R4S
New Task
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
"Small Fonts
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "EmailProcessing"
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub CheckDueDate
Declare Sub CheckStartDate
Declare Function SendNotification(ReplyType, MessageText, NewState, ViewIcon) As Variant
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim maildoc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim dt As NotesDateTime
Dim dt2 As NotesDateTime
Dim Action As Variant
Dim DocWasSaved As Variant
Dim FinalSave As Variant
Dim CommentQuery As Variant
Dim StartDate As Variant
Dim DueDate As Variant
Dim Subject As Variant
Dim NewSubject As String
Dim ComposeReply As Variant
Dim ConvertedTask As Variant
'++LotusScript Development Environment:2:2:CheckDueDate:1:8
Sub CheckDueDate

'DueState causes the view to sort correctly:  0=Overdue, 1=Current, 2=Future
     Set dt2 = New NotesDateTime(DueDate(0))
     If dt.TimeDifference(dt2) > 0 Then
          note.DueState = 0
     Else
          note.DueState = 1
     End If

End Sub
'++LotusScript Development Environment:2:2:CheckStartDate:1:8
Sub CheckStartDate

'DueState causes the view to sort correctly:  0=Overdue, 1=Current, 2=Future
     Set dt2 = New NotesDateTime(StartDate(0))
     If dt.TimeDifference(dt2) < 0 Then
          note.DueState = 2
     Else
          note.DueState = 1
     End If

End Sub
'++LotusScript Development Environment:2:1:SendNotification:1:8
Function SendNotification(ReplyType, MessageText, NewState, ViewIcon) As Variant

     SendNotification = True

     FromCommonName = Evaluate("@Name([CN]; Principal)", note)
     If FromCommonName(0) = "" Then FromCommonName = Evaluate("@Name([CN]; From)", note)

     CommentQuery = Messagebox("A " & ReplyType & " notice will be sent to " & FromCommonName(0) &_
     ".  Do you wish to send additional comments?", MB_YESNOCANCEL, "Task " & Action)
     Select Case CommentQuery
     Case IDYES
          Call session.SetEnvironmentVar("MailStEd", Cstr(NewSubject))
          ComposeReply = True
     Case IDNO
          Set maildoc = New NotesDocument(db)
          Set rtitem = New NotesRichTextItem(maildoc, "Body")
          If note.HasItem("Principal") Then
               maildoc.SendTo = note.Principal(0) & " @ " & note.FromDomain(0)
          Else
               maildoc.SendTo = note.From(0) & " @ " & note.FromDomain(0)
          End If
          maildoc.Subject = NewSubject
          rtitem.AppendText(MessageText & Subject & ".  ")
          maildoc.Form = "Reply"
          maildoc.Principal = Owner
          maildoc.AssignState = NewState
          maildoc.DueState = NewState
          Call maildoc.AppendItemValue("_ViewIcon", ViewIcon)
          Call maildoc.Save (True, True, True)
          Call maildoc.MakeResponse(note)
          On Error Goto SendError
          Call maildoc.Send (False)
          Call maildoc.Save (True, True, True)
          ws.ViewRefresh
     Case IDCANCEL
          note.SaveOptions = "0"
          note.MailOptions = "0"
          CommentQuery = "Cancel"
          SendNotification = False
          Exit Function
     End Select

     note.SaveOptions = "1"
     note.AssignState = NewState
     note.DueState = NewState
     Call note.ReplaceItemValue("_ViewIcon", ViewIcon)

     Exit Function

SendError:
     Messagebox ReplyType & " reply document could not be sent to " & FromCommonName(0) & " at this time.  Please retry", MB_OK, "Task Completion"
     SendNotification = False
     maildoc.Remove(True)
     Exit Function

End Function
 Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Declare Sub Postrecalc(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Querysave From Source Call Querysave
     On Event Queryclose From Source Call Queryclose
     On Event Querymodechange From Source Call Querymodechange
     On Event Postrecalc From Source Call Postrecalc
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)

     If source.InPreviewPane Then Exit Sub

     DocWasSaved = False
     FinalSave = False

     Set ws = New NotesUIWorkSpace
     Set uidoc = source

     If note Is Nothing Then Call InstantiateObjectVariables

     If source.IsNewDoc Then
          Call note.ReplaceItemValue("_ViewIcon", 168)
          note.AssignState = 0
          note.ExcludeFromView = "D"
          note.OrgTable = "T0"
     Else
          FormName = note.Form
          If FormName(0) = "Task" Then
               EditType = session.GetEnvironmentValue("MailStEd")
'EditType 5 = EditNewCopy
               If EditType = "5" Then
                    Call note.ReplaceItemValue("$VersionOpt", "6")
                    note.tmpAction = "ConvertNewDoc"
                    Call session.SetEnvironmentVar("MailStEd", "0")
                    source.reload
                    source.save
               End If
          End If
     End If

     note.RemoveItem("MailOptions")
     note.RemoveItem("SaveOptions")

     If note.tmpAction(0) = "Converting" Then ConvertedTask = True

'default DueState to 1 (current)
     If Not(note.HasItem("DueState")) Then note.DueState = 1

     If source.EditMode Then
          If Not(note.HasItem("SecureMail")) Then CheckSecureMail
          source.Reload
          source.RefreshHideFormulas
     End If

End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)

     If Source.InPreviewPane Then Exit Sub
     Dim sendToList As Variant
     Dim cnName As Variant
     Dim foundName As Integer

     If FinalSave Then Exit Sub

     On Error 4412 Resume Next
     source.Refresh
'4412 = field did not pass validation
     If Err = 4412 Then
          Err = 0
          continue = False
          Exit Sub
     End If

     Set dt = New NotesDateTime("")
     dt.SetNow

     Action = note.tmpAction(0)
     Select Case Action
     Case "Complete"
'AssignState = 0 if assigned to self, 1 if assigned to others but not sent, 2 if assigned and sent, and 9 if complete.
          If note.HasItem("Principal") Then
               FromName = note.Principal(0)
          Else
               FromName = note.From(0)
          End If
          oldAssignState = note.AssignState(0)
          Subject = note.Subject(0)
          NewSubject = "Task:  " & Subject & " is complete as of " & dt.LSLocalTime
          Select Case oldAssignState
          Case 0, 1 '0=assigned to yourself.  1=assigned to someone else but not sent
               Gosub CompleteThisTask
          Case 8, 9 '9=complete
               Messagebox Subject & " is already closed.", 0, "Task Completion"
          Case Else ' make sure current user is in the assignTo list
               sendToList = note.SendTo
               cnName = Evaluate("@Name([CN]; @Username )")
               foundName = False
               Forall a In sendToList
                    If Instr(Lcase(a), Lcase(cnName(0))) > 0 Then
                         foundName = True
                         Exit Forall
                    End If
               End Forall

               If Not foundName Then
                    Messagebox "The task '" & Subject & "' is not assigned to you. You cannot complete a task that is assigned to someone else.", 0, "Task Completion"
               Else
                    If SendNotification("completion", "I have completed task: ", 9, 82) = False Then
                         source.Reload
                         continue = False
                         Exit Sub
                    Else
                         Gosub CompleteThisTask
                    End If
               End If
          End Select
          CloseDoc = True
     Case "Reassign"
          Subject = note.Subject(0)
          NewSubject = "Please reassign Task:  " & Subject
          If SendNotification("reassignment", "Please reassign this task: ", 8, 81) = False Then
               source.Reload
               continue = False
               Exit Sub
          End If
          CloseDoc = True
     Case "Reply"
          ComposeReply = True
          CloseDoc = True
     Case "ConvertNewDoc"
          note.From = Owner
          note.AssignState = 1
          note.MailOptions = "0"
          note.SaveOptions = "1"
     Case Else
          If Action = "Send" Then
               note.SaveOptions = "1"
               note.MailOptions = "0"
          End If
'DueState causes the view to sort correctly:  0=Overdue, 1=Current, 2=Future, 8=Rejected, 9=Complete
'If it is complete we do not want to change it's DueState
          If note.DueState(0) <> 9 Then
               DueDate = note.DueDateTime
               StartDate = note.StartDateTime
               If StartDate(0) = "" Then
                    If DueDate(0) = "" Then
                         note.DueState = 1
                    Else
                         CheckDueDate
                    End If
               Else
                    CheckStartDate
                    DueState = note.DueState
                    If DueDate(0) <> "" And DueState(0) <> 2 Then CheckDueDate
               End If
          End If
     End Select

     AssignState = note.AssignState
     SendTo = note.SendTo
     If AssignState(0) = 1 And SendTo(0) = "" Then note.AssignState = 0

     DocWasSaved = True

     note.RemoveItem("tmpAction")
     note.RemoveItem("tmpSenderTag")
     If note.HasItem("$VersionOpt") Then Call note.ReplaceItemValue("$VersionOpt", "0")
     'If Not(note.HasItem("DocAuthors")) Then Set item = New NotesItem(note, "DocAuthors", note.From, AUTHORS)

     source.Reload

     If CloseDoc Then source.Close

     Exit Sub

CompleteThisTask:
     note.DueState = 9
     note.AssignState = 9
     note.CompletedDateTime = dt.LSLocalTime
     Call note.ReplaceItemValue("_ViewIcon", 82)
     note.SaveOptions = "1"
     Return

End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)

     If source.InPreviewPane Then Exit Sub

     If CommentQuery = "Cancel" Then
          CommentQuery = ""
          Continue = False
          Exit Sub
     End If

     If DocWasSaved = False And source.EditMode Then
'this forces a save prompt for converted tasks
          If ConvertedTask And ContinueSave = "" Then
               Call SaveDialog("Task")
               Select Case ContinueSave
               Case IDYES
                    source.Save
               Case IDCANCEL
                    Continue = False
                    Exit Sub
               Case Else
                    Exit Sub
               End Select
          Else
               Exit Sub
          End If
     End If

     If ConvertedTask Then
          note.RemoveFromFolder("($Inbox)")
          ws.ViewRefresh
     End If

     AssignState = note.AssignState
     If AssignState(0) = 1 Then
          SendPrompt = Messagebox("Do you wish to send this Task to the Assignee?", _
          MB_YESNOCANCEL, "Close Task")
          Select Case SendPrompt
          Case IDCANCEL
               Continue = False
               Exit Sub
          Case IDNO
               Exit Sub
          Case IDYES
               note.AssignState = 2
               source.Reload
'front end send will put up the ambiguious names dialog if necessary
               On Error Resume Next
               source.Send
               If Err > 0 Then
                    Err = 0
                    note.AssignState = 1
                    continue = False
                    Exit Sub
               End If
               note.SaveOptions = "1"
               note.AssignedTo = note.SendTo
               source.Reload
               source.Save
               FinalSave = True
          End Select
     End If

     If ComposeReply Then Call ws.ComposeDocument("", "", "Reply")

End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)

     If (source.InPreviewPane) Then
          continue = False
          Exit Sub
     End If
     If note Is Nothing Then Call InstantiateObjectVariables
     note.RemoveItem("MailOptions")
     note.RemoveItem("SaveOptions")

End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
     If (source.InPreviewPane) Then Exit Sub
'Make sure DueDate > StartDate

     If note.StartDateTime(0) = "" Or note.DueDateTime(0) = "" Then Exit Sub

     Set dt = New NotesDateTime(note.StartDateTime(0))
     Set dt2 = New NotesDateTime(note.DueDateTime(0))

     If dt.TimeDifference(dt2) > 0 Then
          Messagebox "Due Date must be greater than Start Date.", 0, "Validation Error"
          Err = 4412
          note.AssignState = 1
          source.RefreshHideFormulas
          source.GoToField("DueDateTime")
     End If

End Sub
    Always Hidden:
Principal
CalendarProfile
Owner
    1S2S3S7S
FromPerson memo is from.
    0S0E
    0S0E
Encrypt
    0S0E
DefaultMailSaveOptions
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
    1S2S
    From:
Principal
Principal
FromDomain
FromDomain
FromDomain
FromDomain
    7S10S15S16S18S22S25S29S32S33S37S39S42S43S45S47S48S49S55S58S62S65S71S
FromName
Principal
Principal
    0RR1S2S9S11S15S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom
     on
PostedDateh
PostedDate
    7S9S
tmpDisplayDateTime/date memo was created or mailed.
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Sent by:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
ReplyTo
    1S2S
    Reply to:
ReplyTo
    0S0E
tmpDisplayReplyTo
    Subject
Subject
    Priority:
    Due Date:
    Start Date:
Importance
None|99High (1)|1Medium (2)|2Low (3)|3
DueDateTime
Invalid Due Date.
DueDateTime
DueDateTime
Invalid Due Date.
    7S12S17S19S20S21S23S25SDueDateTime
StartDateTime
Invalid Start Date.
StartDateTime
StartDateTime
Invalid Start Date.
    7S12S17S19S20S21S23S25SStartDateTime
AssignState
    1S2S3S4S6S7S
    Assign to:
AssignState
SendTo}
    3S4S6S8S
SendToList of people to assign to this task
    Assigned to:
AssignState
Principal
Principal
AssignState
SendTo
AssignedTo
    3S4S6S9S10S12S14S17S18S19S20S21S23S25S
AssignedToList of primary people to invite to the meeting.
CopyToList of people to send a copy of the memo.
    Additional information:
Close
MailOptions
    1S2S3S
SaveOptions
    0R1S2S3S
Edit Task
Principal
AssignState
    3S4S5S6S8S9S10S11S
_Forward
_Move To Folder...
Delivery Information...Kz
DeliveryInfo
Delivery Information
    4S5S6S7S8S9S10S12S
DeliveredDate
    0S0E
Completed n
tmpAction
Complete
    0R1S2S3S
AssignState
AssignState
AssignState
Principal
    3S4R5S6S7S8R9S10S11S12R14S15S16S17S18S19S20S21S
Assign To Others...Kr
AssignState
    1S2S3S
SendTo
    0R4S
AssignState
    1S2S3S4S
Reassign...K
AssignState
    0R1S2S3S
SendTo
    0R4S
AssignState
DeliveredDate
    1S2S3S4S
Address...
    0S0E
AssignState
    1S2S
Delete
    0S0E
Principal
    3S4S5S6S
SendTo
Send Task
You must assign this task before sending it.
    3S4S6S12S14S18S
AssignState
    0RR1S2S3S
tmpAction
    0R1S2S3S
    0R7S9S
SaveOptions
    0RR1S2S3S
MailOptions
    0R1S2S3S
    0R7S9S
MailOptions
    0R1S2S3S
AssignState
    1S2S
Reply
tmpAction
Reply
    0R1S2S3S
    0RRZ
AssignState
Principal
    1S2S3S4S5S6S7S8S
Please Reassign...n
tmpAction
Reassign
    0R1S2S3S
    0RRZ
AssignState
Principal
    1S2S3S4S5S6S7S8S
Delivery Options...K
DeliveryOptions
Delivery Options
    4S8S
_ViewIcon
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
    0RR1S2S3S5RS3E6S7S8S9S11S13RS3E14S15S17S19RS3E20S21S23S25RS3E26S27S29S31RS3E32S33S35S37RS3E38S39S41S43RS3E44S45S47S49RS3E50S51S53S55RS3E56S57S59S61RS3E62S63S65S67RS3E68S69S71S73RS3E0
AssignState
    1S2S
Special Options...F
ReplyDate
ReplyDate
    1S2S3S
ReplyTo
ReplyTo
    0R1S2S3S
(Advanced Options)
Special Options
    0R6S10S13S15S
tmpDisplayReplyInfo
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    0R1S2S3S4S5S8S9S11S13S14S15S17S18S21S22S24S26S27S28S
DueDateTime
DueDateTime
ReplyDate
DueDateTime
    0R1S2S3S6S7S9S11S
AssignState
    1S2S
Move To Folder
    0S0E
Principal
    3S4S5S6S
Display Task on My CalendarK
StartDateTime
DueDateTime
Date Required
In order to display this task on your Calendar, you must enter a Start Date and/or a Due Date.
    3S4S5S6S7S8S10S16S18S22S
tmpDate
StartDateTime
DueDateTime
StartDateTime
    0RR1S2S5S6S8S10S
CalendarDateTime
tmpDate
tmpDate
tmpDate
    0R1S2S3S10S15S20S22S24S
CalendarDateTimeh
    0S0E
Remove From Calendar View
CalendarDateTime
    1S2S3S
CalendarDateTimeY
    0S0E
Categori_zeK
SSend
_Remove From Folder...
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
tmpnewdoc
    1S2S
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New GroupK,
NewGroup
    0S0E
tmpnewdoc
    1S2S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
lZ/OWK
tDIGy
DelegateAlert
AssigneeAlert
$$FormPostOpenAction
ExpireDate
ReplyDate
CompletedOn
ComposedDate
SelfAssigned
$TypeIcon
$TITLE
$AUTOLAUNCH
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
DueDateTime
StartDateTime
$BODY
$ACTIONS
$SCRIPTOBJ_21
$SCRIPTOBJ_22
$SCRIPTOBJ_23
Strip alternatives, parentheses, and a leading dollar sign from the $Title item
FolderName1
$Title
    0R1S2S10S15S16S18S
FolderName2
FolderName1
$Title
FolderName1
FolderName1
FolderName1
    0R1S2S6S7S9S10S15S17S18S21S25S28S
FolderName2
    0S0E
Set the folder flags in addition to those that are stored
FolderFlags1
$FolderFlagsh
$FolderFlags
    0R1S2S9S11S
Set the FOLDER_FLAG_HIDDEN (32) and FOLDER_FLAG_SYSTEM (16) flags
    0R1S
FolderFlags1
$Name
$Name
    0R1S2S8S10S11S13S19S21S22S24S26S29S
$106$103$107$Conflict
Select all folders, except shared-on-first-use folders
$Flags
$Flags
    0RL1S5S7S8S13S
$106Folder Name
Strip alternatives, parentheses, and a leading dollar sign from the $Title item
FolderName1
$Title
    0R1S2S10S15S16S18S
FolderName2
FolderName1
$Title
FolderName1
FolderName1
FolderName1
    0R1S2S6S7S9S10S15S17S18S21S25S28S
FolderName2
$103Folder UNID
    0S0E
$107Folder Flags
Set the folder flags in addition to those that are stored
FolderFlags1
$FolderFlagsh
$FolderFlags
    0R1S2S9S11S
Set the FOLDER_FLAG_HIDDEN (32) and FOLDER_FLAG_SYSTEM (16) flags
    0R1S
FolderFlags1
$Name
$Name
    0R1S2S8S10S11S13S19S21S22S24S26S29S&
New Memo.
    0S0E
Delete
    0S0E
Move To Folder...
    0S0E
_Forward
Reply
Reply
    0S0E
Reply With History@
Reply with history
    0S0E
Categori_ze
_Edit Document
Send
Resend
NonDelivery Report
Not a Delivery Failure Report
You cannot Resend a message unless it is a Delivery Failure Report.
    6S12S17S23S
Convert To Task
ConvertToTask
_Move To Folder...
_Remove From Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$Name
$TITLE
$Index
$Formula
$VIEWFORMAT
$Comment
$ACTIONS
$FormulaClass
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ViewGlobalScript
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
7~ 9my4
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ViewGlobalScript
$ViewGlobalScript_O
&Arial
Owner
Calendar Profile
Calendar Profile for
Owner
    3S4S5S6S7S8S9S10S'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Terminate
Declare Function IsValidDateRange(FieldName As String) As Integer
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim uidoc As NotesUIDocument
Dim session As NotesSession
Dim trdr As NotesDateRange
Dim note As NotesDocument
Dim db As NotesDatabase
Dim acl As NotesAcl
Dim aclentry As NotesAclEntry
Dim namelookup As NotesName
Dim DoNotEdit As Integer
'++LotusScript Development Environment:2:2:Terminate:1:10
Sub Terminate

End Sub
'++LotusScript Development Environment:2:1:IsValidDateRange:1:8
Function IsValidDateRange(FieldName As String) As Integer
'returns true if the given date range is valid, false otherwise
     Dim datetime As String

     On Error Goto ErrorRoutine

     IsValidDateRange = True
     datetime = uidoc.FieldGetText(FieldName)
     trdr.Text = datetime
     Exit Function

ErrorRoutine:
     IsValidDateRange = False
     Exit Function
End Function
 CalendarProfile'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Querysave From Source Call Querysave
     On Event Postopen From Source Call Postopen
     On Event Querymodechange From Source Call Querymodechange
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)

     If (note.Sunday(0) = "1") Then
          If Not (IsValidDateRange("$Times1")) Then
               Messagebox "You must enter a valid date-range for Sunday.",0,"Error"
               continue = False
               Exit Sub
          End If
     End If

     If (note.monday(0) = "2") Then
          If Not (IsValidDateRange("$Times2")) Then
               Messagebox "You must enter a valid date-range for Monday.",0,"Error"
               continue = False
               Exit Sub
          End If
     End If

     If (note.tuesday(0) = "3") Then
          If Not (IsValidDateRange("$Times3")) Then
               Messagebox "You must enter a valid date-range for Tuesday.",0,"Error"
               continue = False
               Exit Sub
          End If
     End If

     If (note.Wednesday(0) = "4") Then
          If Not (IsValidDateRange("$Times4")) Then
               Messagebox "You must enter a valid date-range for Wednesday.",0,"Error"
               continue = False
               Exit Sub
          End If
     End If

     If (note.Thursday(0) = "5") Then
          If Not (IsValidDateRange("$Times5")) Then
               Messagebox "You must enter a valid date-range for Thursday.",0,"Error"
               continue = False
               Exit Sub
          End If
     End If

     If (note.Friday(0) = "6") Then
          If Not (IsValidDateRange("$Times6")) Then
               Messagebox "You must enter a valid date-range for Friday.",0,"Error"
               continue = False
               Exit Sub
          End If
     End If

     If (note.Saturday(0) = "7") Then
          If Not (IsValidDateRange("$Times7")) Then
               Messagebox "You must enter a valid date-range for Saturday.",0,"Error"
               continue = False
               Exit Sub
          End If
     End If


End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)

     Set note = source.Document
     Set session = New NotesSession
     Set trdr  = session.CreateDateRange
     Set uidoc = source
     Set db = session.CurrentDatabase

'if you are less than an Author you cannot edit
     If db.CurrentAccessLevel < ACLLEVEL_AUTHOR Then
          DoNotEdit = True
          source.EditMode = False
     End If

     If source.EditMode Then Call source.Refresh

End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
     If DoNotEdit And source.EditMode = False Then continue = False
End Sub
UserAccess
    1S2S11S
EnableAlarms
    0R3S4S6S11S
AutoProcessMeetings
AutoProcessMeetings
    0R1S2S3S
AutoProcessMeetings
AutoProcessNotices
UserAccess
AutoProcessMeetings
Autoprocess
You are not authorized to enable the Autoprocessing agent.  Please contact a designer or manager of this database.
AutoProcessNotices
AutoProcessMeetings
AutoProcessMeetings
AutoProcessNotices
UserAccess
AutoProcessMeetings
Autoprocess
You are not authorized to disable the Autoprocessing agent.  Please contact a designer or manager of this database.
AutoProcessNotices
AutoProcessMeetings
    0R3S4S5S6S12RS6E15S16S18RS12E20RS21E27RS21E32RS21E38S40S43RS21E45RS6E59RS12E61RS21E68RS21E72RS21E74RS12E78R79S80S81S82S87RS6E90S91S93RS12E95RS21E102RS21E107RS21E113S115S118RS21E120RS6E134RS12E136RS21E143RS21E147RS21E149RS12E153R
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As FIELD
     Set Source = Bind(Objectname_)
     On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)

End Sub
*.PCX
TIFF 5.0
.0/6.1
*.WPD;*.W
_ITIFF
Calendar Profile
Mail File Owner:
OwnerEnter the name of the person who owns this mail file.
Delegation Profile
You are not authorized to access the Delegation Profile.
EditDelegationProfile
    11S14S15S17S23S25S29R33S
    Allow other users to view your calendar...
Scheduling Options
    Default appointment/meeting duration:
DefaultDuration
EnableAlarms
Enable alarm notifications|1
EnableAlarms
    1S2S
AutoSetAlarms
Automatically set alarm(s) for:|1
AutoSetAlarms
EnableAlarms
    1S2S3S4S5S6S
SetAlarmAppointment
Appointments/Meetings|1
AppointmentLead
    minute(s) in advance
SetAlarmReminder
Reminders|1
ReminderLead
     minute(s) in advance
SetAlarmEvent
Events|1
EventLead
    day(s) in advance
SetAlarmAnniversary
Anniversaries|1
AnniversaryLead
    day(s) in advance
Freetime Options
    Only the following users can
    read my Freetime Schedule:
AllowBusyAccess
AllowBusyAccess
Owner
    6S7S8S9S12S13S16SAllowBusyAccessEnter the names of users who can read your freetime schedule; leave this field blank to give everyone access.
    Allowable free times:
Sunday
Sunday:|1
Sunday
    1S2S
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S
$Times1
$Times1
    15S17S19S21S23S25S28S29S30S31S37S39S41S43S45S47S51S52S60S62S64S66S68S70S73S74S75S76S82S84S86S88S90S92S
textdate
$Times1
    0S0E
list1
textdate
list2
textdate
date1
list1
date2
list2
result
date2
date1
result
result
Invalid time range for Sunday.  Ranges may not span days.
    0R4S5S7S8S10S11S
$Times1
Monday
Monday:|2
Monday
    1S2S
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S
$Times2
$Times2
    15S17S19S21S23S25S28S29S30S31S37S39S41S43S45S47S51S52S60S62S64S66S68S70S73S74S75S76S82S84S86S88S90S92S
textdate
$Times2
    0S0E
list1
textdate
list2
textdate
date1
list1
date2
list2
result
date2
date1
result
result
Invalid time range for Monday.  Ranges may not span days.
    0R4S5S7S8S10S11S
$Times2
Tuesday
Tuesday:|3
Tuesday
    1S2S
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S
$Times3
$Times3
    15S17S19S21S23S25S28S29S30S31S37S39S41S43S45S47S51S52S60S62S64S66S68S70S73S74S75S76S82S84S86S88S90S92S
textdate
$Times3
    0S0E
list1
textdate
list2
textdate
date1
list1
date2
list2
result
date2
date1
result
result
Invalid time range for Tuesday.  Ranges may not span days.{
    0R4S5S7S8S10S11S
$Times3
Wednesday
Wednesday:|4
Wednesday
    1S2S
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S
$Times4
$Times4
    15S17S19S21S23S25S28S29S30S31S37S39S41S43S45S47S51S52S60S62S64S66S68S70S73S74S75S76S82S84S86S88S90S92S
textdate
$Times4
    0S0E
list1
textdate
list2
textdate
date1
list1
date2
list2
result
date2
date1
result
result
Invalid time range for Wednesday.  Ranges may not span days.{
    0R4S5S7S8S10S11S
$Times4
Thursday
Thursday:|5
Thursday
    1S2S
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S
$Times5
$Times5
    15S17S19S21S23S25S28S29S30S31S37S39S41S43S45S47S51S52S60S62S64S66S68S70S73S74S75S76S82S84S86S88S90S92S
textdate
$Times5
    0S0E
list1
textdate
list2
textdate
date1
list1
date2
list2
result
date2
date1
result
result
Invalid time range for Thursday.  Ranges may not span days.
    0R4S5S7S8S10S11S
$Times5
Friday
Friday:|6
Friday
    1S2E2S
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S
$Times6
$Times6
    15S17S19S21S23S25S28S29S30S31S37S39S41S43S45S47S51S52S60S62S64S66S68S70S73S74S75S76S82S84S86S88S90S92S
textdate
$Times6
    0S0E
list1
textdate
list2
textdate
date1
list1
date2
list2
result
date2
date1
result
result
Invalid time range for Friday.  Ranges may not span days.
    0R4S5S7S8S10S11S
$Times6
Saturday
Saturday:|7
Saturday
    1S2E2S
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S
$Times7
$Times7
    15S17S19S21S23S25S28S29S30S31S37S39S41S43S45S47S51S52S60S62S64S66S68S70S73S74S75S76S82S84S86S88S90S92S
textdate
$Times7
    0S0E
list1
textdate
list2
textdate
date1
list1
date2
list2
result
date2
date1
result
result
Invalid time range for Saturday.  Ranges may not span days.
    0R4S5S7S8S10S11S
$Times7
Advanced Calendar Options
Autoprocessing Options
AutoProcessMeetings
Meetings|1
AutoRemoveFromInbox
Remove Invitations from my Inbox after I respond to them|1
AutoProcessMeetings
    0S0E
    Autoprocess Meetings only from the following people:
MeetingsPeople
Calendar Entry Options
    Default settings:
    Calendar entry type:
CalEntryType
Appointment|0Invitation|3Event|2Reminder|4Anniversary|1
CalEntryHide
Hide new Calendar Entries from public viewing|1
    Enable conflict checking for:
ConflictMeeting
Appointments/Meetings|1
ConflictAnniv
Anniversaries|1
ConflictEvent
Events|1
Owner
$BusyName
$NoPurge
$NoPurge
Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
    0S0E
$AvailableDays
$PublicAccess
_Edit Document
_Forward
    0S0E
CancelF
SaveOptions
    1S2S3S
Categori_ze
Send Docu_ment
_Move To Folder...
_Remove From Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
SundayStart_1
SundayEnd_1
SundayStart_2
SundayEnd_2
SundayStart_3
SundayEnd_3
SundayStart_4
SundayEnd_4
SundayStart_5
SundayEnd_5
SundayStart_6
SundayEnd_6
TaskLead
TimeSlotStart
TimeSlotEnd
TimeSlotInterval
SundayStart
SundayEnd
MondayStart
MondayEnd
TuesdayStart
TuesdayEnd
WednesdayStart
WednesdayEnd
ThursdayStart
ThursdayEnd
FridayStart
FridayEnd
SaturdayStart
SaturdayEnd
$SundayTimes
$MondayTimes
$TuesdayTimes
$WednesdayTimes
$ThursdayTimes
$FridayTimes
$SaturdayTimes
$1Times
$2Times
$3Times
$4Times
$5Times
$6Times
$7Times
$FormPublicAccess
$TITLE
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$$FormAction2
$$$Times1
$$Times1_O
DefaultDuration
AppointmentLead
ReminderLead
EventLead
AnniversaryLead
$Times1
$Times2
$Times3
$Times4
$Times5
$Times6
$Times7
$NoPurge
$BODY
$ACTIONS
$PublicAccess
Invitation from
Principal
    1S2S6S
"Small Fonts
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "NoticeProcessing"
Use "NoticeResponses"
Use "RepeatProcessing"
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim collection As NotesDocumentCollection
Dim nam As NotesName
Dim DocWasSaved As Integer
Dim NewForm As String
Dim ErrorStatus As Integer
'++LotusScript Development Environment:2:2:Postopen:1:8
Sub Postopen(Source As Notesuidocument)

End Sub
'++LotusScript Development Environment:2:2:Querysave:1:8
Sub Querysave(Source As Notesuidocument, Continue As Variant)

     Call MarkTempFields(note)

     Select Case note.tmpAction(0)
     Case "Accept","PencilIn"
          AcceptInvitation
     Case "Decline"
          DeclineInvitation
     Case "Delegate"
          ErrorStatus = DelegateInvitation
     Case "CounterPropose"
          CounterPropose
     Case "AddCalendar"
'in this case, we treat this as an accept, but we do not return anything back to the Chair -> we only add this to the Calendar and Busytime
          Call UpdateOriginalInvitation(note)
          If (profile.AutoRemoveFromInbox(0) = "1") Then note.RemoveFromFolder("($Inbox)")
     Case "AcceptCounterProposal"
          AcceptCounterProposal
     Case "DeclineCounterProposal"
          DeclineCounterProposal
     End Select

'#############################
'If this should repeat then we need create the repeat instances
     Action = note.tmpAction(0)
     If note.HasItem("OrgRepeat") Then Call RepeatSave
'#############################

     source.Reload

End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:8
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
     On Error 4005 Resume Next   'we want to trap whenever the parentnote is nothing
'notice documents always exist when opening them
     Set ws = New NotesUIWorkspace
     Set uidoc = Source
     InstantiateObjectVariables

     note.RemoveItem("MailOptions")
'if the user is in the preview pane, exit
     If (uidoc.InPreviewPane) Then Exit Sub

'if this is a response document, get the parent
'we do this for both the chair and the invitee so we can detect missing parent documents
     If (note.IsResponse) Then
          Set parentnote = db.GetDocumentByUNID(note.ParentDocumentUNID)
          If (parentnote Is Nothing) Then
'if this is a non-repeating note, see if we should re-create the document
               If Not(note.hasitem("OrgRepeat")) Then
                    If (Msgbox("The appointment document has been deleted from your calendar, do you want to re-create it?",52) = 6) Then
                         Call ResurrectParentDoc
                    Else
                         note.tmpNoParent = True
                         note.DoNotProcess = True
                    End If
               Else
                    Msgbox "This deleted appointment was part of a repeat set but is being recreated as a single appointment.",48
                    Call ResurrectParentDoc
               End If
          End If
     End If
'remove any sendto items
     note.RemoveItem "SendTo"
     note.tmpOwner = Owner
'get any update items if we are not the chair
     If Not (note.tmpOwner(0) = note.Chair(0)) Then CheckForNoticeUpdates
End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:8
Sub Postmodechange(Source As Notesuidocument)

End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:8
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
     If (ErrorStatus > 0) Then
          continue = False
          ErrorStatus = 0
     End If
     If ((Action = "Accept") Or (Action = "AddCalendar")) And note.HasItem("RepeatFor") Then note.Subject = "Repeat parent for " & note.Subject(0) & " - do not delete"
     ws.ViewRefresh
End Sub
'++LotusScript Development Environment:2:2:Click:1:8
Sub Click(Source As Button)
     Call ResurrectParentDoc
     Call note.RemoveItem("tmpNoParent")
     Call note.RemoveItem("DoNotProcess")
     Call uidoc.Refresh
End Sub
K|    -t
%K|    S
K|    Qp
K|    Sp
 Notice'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Postrecalc(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Queryopen From Source Call Queryopen
     On Event Querysave From Source Call Querysave
     On Event Queryclose From Source Call Queryclose
     On Event Postopen From Source Call Postopen
     On Event Postrecalc From Source Call Postrecalc
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
     On Error 4005 Resume Next   'we want to trap whenever the parentnote is nothing
'notice documents always exist when opening them
     Set ws = New NotesUIWorkspace
     Set uidoc = Source
     InstantiateObjectVariables

     note.RemoveItem("MailOptions")
'if the user is in the preview pane, exit
     If (uidoc.InPreviewPane) Then Exit Sub

'if this is a response document, get the parent
'we do this for both the chair and the invitee so we can detect missing parent documents
     If (note.IsResponse) Then
          Call GetParentDocument
'if the user did not create a parent, exit sub
          If (parentnote Is Nothing) Then Exit Sub
     End If

     If Not(parentnote Is Nothing) Then
          If(note.HasItem("RescheduleWhich")) Then parentnote.RescheduleWhich = note.RescheduleWhich
          If(note.HasItem("OriginalStartDate")) Then parentnote.OriginalStartDate = note.OriginalStartDate
     End If
'remove any sendto items
     note.RemoveItem "SendTo"
     note.tmpOwner = Owner
'get any update items if we are not the chair
     If Not (note.tmpOwner(0) = note.Chair(0)) Then CheckForNoticeUpdates

End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
     ErrorStatus = 0

     'if we had to open the repeat parent, then make sure the user actually processsed the parent
     If (OpenRepeatParent) Then
          If Not(GetParentDocument()) Then
               continue = False
               Exit Sub
          End If
     End If

'if the user had delegated the meeting invitation and is now trying to take a different action ,warn them
     If (note.NoticeType(0) = ORS_MSGTYPE_DELEGATING) Or (note.HasItem("tmpDidDelegate")) Then
          Select Case note.tmpAction(0)
          Case "Accept","PencilIn","Decline","CounterPropose"
               Set nam = New NotesName(note.Delegee(0))
               If (Messagebox("You previously delegated this invitation to "& nam.Common & ". By taking a different action now, the delegee will no longer receive any notifications relevant to this meeting. " _
               & "You may also have missed important change notifications (reschedule, cancellation) that were sent to the delegee by the Chairperson.  Continue?",36,"Warning") = 7) Then
                    note.NoticeType = ORS_MSGTYPE_DELEGATING
                    note.RemoveItem("tmpDidDelegate")
                    note.RemoveItem("tmpUserActions")
                    source.Reload
                    source.Refresh
                    ErrorStatus = 1
                    continue = False
                    Exit Sub
               End If
          End Select
     End If

     If note.HasItem("OrgRepeat") Then Call SaveOriginalValues

     If(note.NoticeType(0) = ORS_MSGTYPE_RESCHEDULE) Then
          If (note.SequenceNum(0) <= parentnote.sequencenum(0)) Then
               Messagebox "This reschedule notice cannot be processed since it has a lower sequence than the parent document."
               continue = False
               ErrorStatus = 1
               Exit Sub
          End If
     End If
     DocWasSaved = True
     source.Reload

End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
     If Not(DocWasSaved) Then Exit Sub
     Select Case note.tmpAction(0)
     Case "Accept","PencilIn"
          AcceptInvitation
     Case "Decline"
          DeclineInvitation
     Case "Delegate"
          ErrorStatus = DelegateInvitation
          If (ErrorStatus <> 0) Then
               note.RemoveItem "tmpUserActions"
               note.RemoveItem "tmpAction"
               continue = False
               ErrorStatus = 0
               Exit Sub
          End If
     Case "CounterPropose"
          CounterPropose
     Case "AddCalendar"
'in this case, we treat this as an accept, but we do not return anything back to the Chair -> we only add this to the Calendar and Busytime
          Context = GetContext
          Select Case Context
          Case 1,3
               Call UpdateOriginalInvitation(parentnote)
          Case 2,4
               Call UpdateOriginalInvitation(note)
          End Select
          If (profile.AutoRemoveFromInbox(0) = "1") Then note.RemoveFromFolder("($Inbox)")
     Case "AcceptCounterProposal"
          AcceptCounterProposal
     Case "DeclineCounterProposal"
          DeclineCounterProposal
     End Select

'#############################
'If this should repeat then we need create the repeat instances
     Action = note.tmpAction(0)
     If (Action = "AddCalendar") Then Action = "Accept"
     If note.HasItem("OrgRepeat") Then
          If (note.NoticeType(0) = ORS_MSGTYPE_RESCHEDULE) Then Action = ""
          Call RepeatSave
     End If
'#############################

     If (ErrorStatus > 0) Then
          continue = False
          ErrorStatus = 0
          Exit Sub
     End If
     If ((Action = "Accept") Or (Action = "AddCalendar")) And note.HasItem("RepeatIds") Then note.Subject = "Do Not Delete - Repeat parent for " & note.Subject(0)
     Call MarkTempFields(note)
     Call note.Save(True,True,True)
     ws.ViewRefresh
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
     If (OpenReschedule) Then
          Set TmpNote = db.GetDocumentByUNID(UpdateResponses(0).misc2)
          Call ws.EditDocument(False,TmpNote)
     Elseif (OpenRepeatParent) Then
          Call ws.editdocument(False,parentnote)
     End If
     DocWasSaved = False
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
     If (note.NoticeType(0) = ORS_MSGTYPE_COUNTER) Then
          Set trdr = session.CreateDateRange
          trdr.Text = uidoc.FieldGetText("NewTimeRange")
          Set startdt = New NotesDateTime(uidoc.FieldGetText("Newdate") & " " & trdr.StartDateTime.TimeOnly)
          Set enddt = New NotesDateTime(uidoc.FieldGetText("Newdate") & " " & trdr.EndDateTime.TimeOnly)

          Set note.tmpNewStart = startdt
          Set note.tmpNewEnd = enddt
          Call uidoc.Reload
     End If
End Sub
X    X    p
,X    }`
%KH    S
tmpRealDate
    0S0E
tmpRealDate
The invitation from
chair
 for
tmpRealDate
S0D0V
tmpRealTime
S1T1V
 has been confirmed."
    8S15S16S17S18S24S25S26S27S33S34S
tmpConfirmMsg
NoticeType
Invitation
NoticeType
Reschedule
NoticeType
Cancelled
NoticeType
Delegated Invitation
NoticeType
Status Update
NoticeType
Confirmation
NoticeType
Counter Proposal Declined
NoticeType
Acceptance
NoticeType
Declined
NoticeType
Delegation
NoticeType
Original Meeting
NoticeType
Pencilled In
tmpNoticeHeader
    3S4S6S8RS8E9S10S12S14RS8E15S16S18S20RS8E21S22S24S26RS8E27S28S30S32RS8E33S34S36S38RS8E39S40S42S44RS8E45S46S48S50RS8E51S52S54S56RS8E57S58S60S62RS8E63S64S66S68RS8E69S70S72S74R
tmpLabel
NoticeType
    1S2S3S4S5S6S
NoticeType
Accepted by:
NoticeType
Declined by:
NoticeType
tmpOwner
chair
Delegated to:
Delegated by:
NoticeType
Delegated by:
NoticeType
Counter proposal by:
tmpWhoLabel
    4RS8E7S8S10S12RS16E13S14S16S18RS16E19S20S25S26S28S30S33RS16E34S35S36S37S39RS16E40S41S43S45RS10E48R
tmpWhoLabel
NoticeType
Principal
Principal
NoticeType
tmpOwner
chair
Delegee
Principal
 (to
Delegee
NoticeType
Principal
tmpWho
    4RS16E7S8S9S10S12S14RS34E21RS52E28RS34E32S36RS21E37S38S44S47S48S50S52S58S59S60S61S67S68S72RS21E73S74S75S76S83RS21E86RS9E
tmpWho
    Chairperson:
Chair
    0S0E
tmpOriginator
NoticeType
chair
NoticeType
Principal
OrgStateh
OrgState
    2S3S12S14S15S16S17S19S20S22S23S28S29S30S31S32S33S34S35S36S37S39S40S45S46S47S48S
    Sent by:
    0S0E
tmpFrom
    Start:
StartDateTime
tmpStartDate
    End:
EndDateTime
tmpEndDate
    1S2S
    Room:
tmpRoom
    Description:
topic
tmpTopic
NoticeType
    1S2S
Proposed Change
    Reason for change:
    Proposed date:
AppointmentType
    1S2S3S4S
    Proposed time:
StartDate
StartDate
StartDateTime
    0S0E
NewDate
AppointmentType
    1S2S3S4S5S
StartDateTime
EndDateTime
    6S7S8S9S
NewTimeRange
Reason
    Proposed location:
NoticeType
chair
tmpOwner
    1S2S3S4S5S6S
NewRoom
NoticeType
chair
tmpOwner
    1S2S3S4S5S6S
CurrentServer
    1S2S
CurrentServer
Invalid Home Server
Please edit your current location document and specify a home/mail server.
    0R3S4S5S6S12S13S14S
RoomAvailable
CurrentServer
names.nsf
($Rooms)
Select a room to reserve for this meeting.
    0R1S2S
NewRoom
RoomAvailable
RoomAvailable
    0R1S2S3S9S10S11S
RoomAvailable
Error
RoomAvailable
    0R6S7S18S19S23S24S
    Propose Specific Room...
CurrentServer
    1S2S
CurrentServer
Invalid Home Server
Please edit your current location document and specify a home/mail server.
    0R3S4S5S6S12S13S14S
Sites
CurrentServer
names.nsf
($Rooms)
    0R1S2S
Select the site to search for a room.
Sites
    0R1S2S7S8S
SiteKey
CN=*/O=
Site"
    0R1S2S3S4S
Capacity
RequiredAttendees
OptionalAttendees
    0R1S2S
RoomAvailable
SiteKey
tmpNewStart
tmpNewEnd
Capacity
    0R1S2S
RoomAvailable
No Room Found
No room was found during the specified time.
    0R3S4S5S6S11S12S14S15S
NewRoom
RoomAvailable
RoomAvailable
    0RR1S2S3S
RoomAvailable
Error
RoomAvailable
    0R6S7S18S19S23S24S
    Find Available Room...
CurrentServer
    1S2S
CurrentServer
Error
This operation cannot be performed locally.
    0R3S4S5S6S14S15S
Sites
CurrentServer
names.nsf
($Rooms)
    0R1S2S
Select the site to search for a room.
Sites
    0R1S2S7S8S
SiteKey
CN=*/O=
Site"
    0R1S2S3S4S
Capacity
RequiredAttendees
OptionalAttendees
    0R1S2S
RoomAvailable
SiteKey
tmpNewStart
tmpNewEnd
Capacity
    0R1S2S
RoomAvailable
No Room Found
No room was found during the specified time.
    0R3S4S5S6S11S12S14S15S
NewRoom
RoomAvailable
    0R1S2S3S
ProposeRoom
    0R1S2S3S
SelectRoom
    0R1S2S3S

NewRoom
tmpNewRoom
RepeatIDs
NoticeType
    4S5S6S7S
Repeating meeting information:
RepeatUnit
NoticeType
    1S2S3S4S5S6S
    This meeting repeats
RepeatInterval
RepeatInterval
every|1every 2nd|2every 3rd|3every 4th|4every 5th|5every 6th|6every 7th|7every 8th|8every 9th|9every 10th|10every 11th|11every 12th|12every 13th|13every 14th|14every 15th|15every 16th|16every 17th|17every 18th|18every 19th|19every 20th|20every 21st|21every 22nd|22every 23rd|23every 24th|24every 25th|25every 26th|26every 27th|27every 28th|28every 29th|29every 30th|30every 31st|31
RepeatUnit
RepeatUnit
day|Dweek|Wmonth|MDmonth|MPyear|YDcustom|C
RepeatAdjust
RepeatAdjust
RepeatUnit
 on Sunday|0
 on Monday|1
 on Tuesday|2
 on Wednesday|3
 on Thursday|4
 on Friday|5
 on Saturday|6
RepeatUnit
 on the 1st Sunday|1.0
 on the 1st Monday|1.1
 on the 1st Tuesday|1.2
 on the 1st Wednesday|1.3
 on the 1st Thursday|1.4
 on the 1st Friday|1.5
 on the 1st Saturday|1.6
 on the 2nd Sunday|2.0
 on the 2nd Monday|2.1
 on the 2nd Tuesday|2.2
 on the 2nd Wednesday|2.3
 on the 2nd Thursday|2.4
 on the 2nd Friday|2.5
 on the 2nd Saturday|2.6
 on the 3rd Sunday|3.0
 on the 3rd Monday|3.1
 on the 3rd Tuesday|3.2
 on the 3rd Wednesday|3.3
 on the 3rd Thursday|3.4
 on the 3rd Friday|3.5
 on the 3rd Saturday|3.6
 on the 4th Sunday|4.0
 on the 4th Monday|4.1
 on the 4th Tuesday|4.2
 on the 4th Wednesday|4.3
 on the 4th Thursday|4.4
 on the 4th Friday|4.5
 on the 4th Saturday|4.6
 on the Last Sunday|5.0
 on the Last Monday|5.1
 on the Last Tuesday|5.2
 on the Last Wednesday|5.3
 on the Last Thursday|5.4
 on the Last Friday|5.5
 on the Last Saturday|5.6
RepeatUnit
 on the 1st day|1
 on the 2nd day|2
 on the 3rd day|3
 on the 4th day|4
 on the 5th day|5
 on the 6th day|6
 on the 7th day|7
 on the 8th day|8
 on the 9th day|9
 on the 10th day|10
 on the 11th day|11
 on the 12th day|12
 on the 13th day|13
 on the 14th day|14
 on the 15th day|15
 on the 16th day|16
 on the 17th day|17
 on the 18th day|18
 on the 19th day|19
 on the 20th day|20
 on the 21st day|21
 on the 22nd day|22
 on the 23rd day|23
 on the 24th day|24
 on the 25th day|25
 on the 26th day|26
 on the 27th day|27
 on the 28th day|28
 on the 29th day|29
 on the 30th day|30
 on the 31st day|31
    3S4S6R8R10R12R14R16R18R20RS5E21S22S24R26R28R30R32R34R36R38R40R42R44R46R48R50R52R54R56R58R60R62R64R66R68R70R72R74R76R78R80R82R84R86R88R90R92R94RS5E95S96S98R100R102R104R106R108R110R112R114R116R118R120R122R124R126R128R130R132R134R136R138R140R142R144R146R148R150R152R154R156R158R160S
     starting on
RepeatStartDate
RepeatStartDate
RepeatHow
RepeatHow
until|Ufor|F
RepeatFor
tmpRepeatUnit
    7S9S
RepeatHow
RepeatUntil
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
RepeatFor
month
RepeatForUnit
RepeatFor
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
weeks
RepeatFor
RepeatForUnit
months
RepeatFor
RepeatForUnit
years
    0R3S4S6S10S13S17S18S19S20S23S24S25S26S27S28S30S32S33S34S35S36S37S38S40S42S43S44S45S46S47S48S50S52S53S54S55S56S57S58S60S62S64S65S68S69S70S71S72S73S75S77S78S79S80S81S82S83S85S87S88S89S90S91S92S93S95S97S98S99S100S101S102S103S105S107S
tmpRepeatUntil
RepeatUnit
 (if the date occurs on a weekend the meeting
RepeatWeekends
occurs anyway
RepeatWeekends
is moved to Friday
RepeatWeekends
is moved to Monday
RepeatWeekends
is moved to Nearest Weekday
RepeatWeekends
is deleted
    3S4S5S6S7S8S10S12S13S14R17S18S20S22S23S24S26S28S29S30S32S34S35S36S38S40S41S42S44S46S48S49S
tmpRepeatWeekends
NoticeType
    1S2S
    Meeting Dates:
RepeatDates
RepeatDates
RepeatDates
    0S0E
NoticeType
    3S4S5S6S7S8S
Invitees:
RequiredAttendees
OptionalAttendees
    0S0E
tmpAttendeeList
    Detailed description:
NoticeType
    1S2S
    Status update:
StatusUpdate
Comments
    1S2S
    Comments sent:
Comments
Comments
    Hidden Fields:
tmpNewStart
tmpNewEnd
_Edit Document
_Forward
_Move To Folder...
Close
    0S0E
Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     On Error Resume Next
     On Error 4412 Goto ErrNoAccess

     If Not(uidoc.EditMode) Then uidoc.EditMode = True
     note.tmpAction = "Accept"
     uidoc.Save
     If (ErrorStatus = 0) Then uidoc.Close
     Exit Sub
ErrNoAccess:
'make sure ErrorStatus = 0; this means the user does not have rights to edit the document
'if ErrorStatus > 0, then the Save failed
     If (ErrorStatus = 0) Then Messagebox "You are not an allowable editor of this invitation.",0,"Warning"
     uidoc.Close
     Exit Sub
End Sub
NoticeType
Chair
tmpOwner
DoNotProcessh
Broadcast
OrgRepeat
    4S5S6S7S8S9S10S11S12S16S2E17S19S20S22S23S27S28S29S30S31S32S
DeclineK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     On Error Resume Next
     On Error 4412 Goto ErrNoAccess

     If Not(uidoc.EditMode) Then uidoc.EditMode = True
     note.tmpAction = "Decline"
     uidoc.Save
     If (ErrorStatus = 0) Then uidoc.Close
     Exit Sub
ErrNoAccess:
'make sure ErrorStatus = 0; this means the user does not have rights to edit the document
'if ErrorStatus > 0, then the Save failed
     If (ErrorStatus = 0) Then Messagebox "You are not an allowable editor of this invitation.",0,"Warning"
     uidoc.Close
     Exit Sub
End Sub
NoticeType
Chair
tmpOwner
DoNotProcessh
tmpNoParent
Broadcast
OrgRepeat
    4S5S6S7S8S9S10S11S12S16S17S19S20S22S23S27S28S32S33S34S35S36S37S
Other...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     On Error Resume Next
     On Error 4412 Goto ErrNoAccess

     uidoc.EditMode = True
     If (ws.DialogBox("(NoticeOptionsDlg)",True,True,,,,,"Options")) Then
'the user selected an action and clicked on OK
'if the user selected Accept, Decline, we can save and exit
          If (note.Comments(0) <> "") Then note.IncludeComment = "1"
          Select Case note.ResponseType(0)
          Case "0"
'this is an acceptance
               note.tmpAction = "Accept"
               Call uidoc.Save
               If (ErrorStatus = 0) Then Call uidoc.Close
          Case "1"
'this is a decline
               note.tmpAction = "Decline"
               Call uidoc.Save
               If (ErrorStatus = 0) Then Call uidoc.Close
          Case "2"
'this is a delegate
               note.tmpAction = "Delegate"
               Call uidoc.Save
               If (ErrorStatus = 0) Then Call uidoc.Close
          Case "3"
'this is a counter propose
               note.tmpAction = "CounterPropose"
               If (note.NoticeType(0) = ORS_MSGTYPE_DELEGATING) Then note.tmpDidDelegate = True
               note.NoticeType = ORS_MSGTYPE_COUNTER
               Call uidoc.RefreshHideFormulas
               Call uidoc.GotoField("Reason")
          Case "4"
'this is a pencil in
               note.tmpAction = "PencilIn"
               Call uidoc.Save
               If (ErrorStatus = 0) Then Call uidoc.Close
          End Select
     End If
     Exit Sub
ErrNoAccess:
'make sure ErrorStatus = 0; this means the user does not have rights to edit the document
'if ErrorStatus > 0, then the Save failed
     note.RemoveItem("tmpUserActions")
     If (ErrorStatus = 0) Then
          Messagebox "You are not an allowable editor of this invitation.",0,"Warning"
          uidoc.Close
     End If
     Exit Sub
End Sub
chair
tmpowner
DoNotProcessh
Broadcast
OrgRepeat
NoticeType
    2S3S5S6S12S13S14S15S16S17S21S22S23S24S
Send Counter Proposal
tmpAction
CounterPropose
    0R1S2S3S
    0R7S12S
NoticeType
NoticeType
Principal
tmpOwner
ProposalSenth
Chair
tmpOwner
    2S3S5S6S8S9S10S11S12S13S15S2E16S20S21S23S24S
Accept Counter ProposalK
tmpAction
AcceptCounterProposal
    0R1S2S3S
ProposalSent+
    0R1S2S3S
    0R7S12S
NoticeType
NoticeType
Chair
tmpOwner
ProposalSenth
    2S3S5S6S8S9S10S11S12S13S15S2E16S
Decline Counter Proposal
tmpAction
DeclineCounterProposal
    0R1S2S3S
ProposalSent+
    0R1S2S3S
    0R7S12S
NoticeType
NoticeType
Chair
tmpOwner
ProposalSenth
    2S3S5S6S8S9S10S11S12S13S15S16S
Delivery Information...Kz
DeliveryInfo
Delivery Information
    4S5S6S7S8S9S10S12S
Add to CalendarK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     On Error Resume Next
     On Error 4412 Goto ErrNoAccess

     If Not(uidoc.EditMode) Then uidoc.EditMode = True
     note.tmpAction = "AddCalendar"
     uidoc.Save
     If (ErrorStatus = 0) Then uidoc.Close
     Exit Sub
ErrNoAccess:
'make sure ErrorStatus = 0; this means the user does not have rights to edit the document
'if ErrorStatus > 0, then the Save failed
     If (ErrorStatus = 0) Then Messagebox "You are not an allowable editor of this invitation.",0,"Warning"
     uidoc.Close
     Exit Sub
End Sub
Broadcast
DoNotProcessh
Chair
tmpOwner
NoticeType
    1S2S3S4S8S9S10S11S12S13S14S15S
Pencil In
tmpAction
PencilIn
    0R1S2S3S
    0R7S12S
NoticeType
Chair
tmpOwner
DoNotProcessh
Broadcast
    4S5S6S7S8S9S10S11S12S14S2E15S17S18S20S21S25S26S27S28S
Check Calendar
KeyValue
NoticeType
NewDate
StartDate
    1S2S5S6S7S8S9S10S
Calendar
KeyValue
KeyValue
tmpOwner
chair
NoticeType
    2S3S5S6S8S9S
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Set helpdoc = New NotesDocument(db)

'get the context the user is in
     If (note.Chair(0) = note.tmpOwner(0)) Then
'the chair is looking at this
          Select Case note.NoticeType(0)
          Case ORS_MSGTYPE_REJECT
               helpdoc.tmpContext = "5"       'chair is reading a decline notice
          Case ORS_MSGTYPE_COUNTER
               helpdoc.tmpContext = "6"       'chair is reading a counter notice
          Case ORS_MSGTYPE_ACCEPT
               helpdoc.tmpContext = "8"      'chair is reading an acceptance
          Case ORS_MSGTYPE_DELEGATING
               helpdoc.tmpContext = "15"    'chair is reading a delegation notice
          End Select
     Else
'the invitee is looking at this
          Select Case note.NoticeType(0)
          Case ORS_MSGTYPE_INVITE
               helpdoc.tmpContext = "4"       'invitee is looking at an invitation
          Case ORS_MSGTYPE_RESCHEDULE
               helpdoc.tmpContext = "7"       'invitee is reading a reschedule notice
          Case ORS_MSGTYPE_COUNTERREJECT
               helpdoc.tmpContext = "9"       'invitee is reading a counter-decline notice
          Case ORS_MSGTYPE_CANCEL
               helpdoc.tmpContext = "10"     'invitee is reading a cancel notice
          Case ORS_MSGTYPE_STATUSUPDATE
               If (note.OrgStatus(0)) = ORS_STATUS_REMOVED Then
                    helpdoc.tmpContext = "11"    'invitee is reading a removal notice
               Else
                    helpdoc.tmpContext = "12"    'invitee is reading a mest attend notice
               End If
          Case ORS_MSGTYPE_CONFIRMATION
               helpdoc.tmpContext = "13"      'invitee is reading a confirmation notice
          Case ORS_MSGTYPE_DELEGATE
               If (note.OrgState(0) = ORS_STATE_DELEGATE) Then helpdoc.tmpContext = "14"  'delegatee opens an invitation notice
          Case ORS_MSGTYPE_REJECT,ORS_MSGTYPE_DELEGATING
               helpdoc.tmpContext = "16"     'invitee is looking at a notice they declined/delegated
          Case ORS_MSGTYPE_COUNTER
               helpdoc.tmpContext = "17"    'invitee is looking at notice they counter proposed
          End Select
     End If
     Call ws.DialogBox("(CalendarHelp)",True,True,True,True,True,True,"C&S Workflow Help",helpdoc)
End Sub
NoticeType
OrgStateY
    2S3S4S5S
Recreate Appointment'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     If (uidoc.EditMode = False) Then uidoc.EditMode = True
     Call ResurrectParentDoc
     Call note.RemoveItem("tmpNoParent")
  '   Call note.RemoveItem("DoNotProcess")
     Call uidoc.Refresh
End Sub
tmpNoParent
    0S0E
Categori_zeK
Send Docu_ment
_Remove From FolderK
Copy into\New Memo,
NewMemo
    0S0E
tmpnewdoc
    1S2S
Copy into\New Calendar Entry4
NewCalendarEntry
    0S0E
tmpnewdoc
    1S2S
Copy into\New Task,
NewTask
    0S0E
tmpnewdoc
    1S2S
Copy into\New GroupK,
NewGroup
    0S0E
tmpnewdoc
    1S2S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
StartDate
TimeRange
$FormPublicAccess
tmpStartDate
tmpEndDate
$TITLE
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
NewDate
NewTimeRange
tmpNewStart
tmpNewEnd
$BODY
$ACTIONS
$SCRIPTOBJ_4
$SCRIPTOBJ_5
$SCRIPTOBJ_6
$SCRIPTOBJ_11
$SCRIPTOBJ_14
$SCRIPTOBJ_15
$PublicAccess
New Calendar Entry
Subject
"Small Fonts
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "AppointmentProcessing" 'includes NoticeProcessing and AppointmentResponses
Use "NoticeResponses"
Use "ResourceProcessing" 'includes RepeatProcessing
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
'(Globals):
Dim startdt As NotesDateTime
Dim enddt As NotesDateTime
Dim remdt As NotesDateTime
Dim trdr As NotesDateRange
Dim Intl As NotesInternational
Dim tmpList() As Variant
Dim SelectedDate As Variant
Dim AppointmentAlarms As Integer
Dim AnniversaryAlarms As Integer
Dim EventAlarms As Integer
Dim DocWasSaved As Integer
Dim ErrorStatus As Integer
Dim AlarmSet As Integer
Dim InAlarmFolder As Integer
 Appointment'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Postmodechange(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Querysave From Source Call Querysave
     On Event Queryopen From Source Call Queryopen
     On Event Queryclose From Source Call Queryclose
     On Event Postrecalc From Source Call Postrecalc
     On Event Postmodechange From Source Call Postmodechange
     On Event Querymodechange From Source Call Querymodechange
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
     If (source.InPreviewPane) Then Exit Sub
     source.AutoReload = False

     On Error Goto ErrorRoutine
'if the user wants to open the reschedule notice, go for it!
     If (OpenReschedule) Then
          Set note = db.GetDocumentByUNID(UpdateResponses(0).misc2)
    '      Call uidoc.Close
          Set uidoc = ws.EditDocument(False,note)
     End If

'if this is a new document we need to set up some defaults
     If source.IsNewDoc Then
          Set uidoc = source
          Set note = uidoc.Document
          Call GetCalendarOwner
          If (note.AppointmentType(0) = "3") Then Call CreateInviteeTable(note)
          Set trdr = session.CreateDateRange
          If (Hour(SelectedDate) > 0) Then
'the user selected a date and time
               note.StartDate = SelectedDate
               note.StartDateTime = SelectedDate
               PreferredDuration = profile.DefaultDuration(0)
               Set enddt = New NotesDateTime(note.StartDateTime(0))
               enddt.AdjustMinute(PreferredDuration)
               Set note.EndDateTime = enddt
'set thet ime range value
               Set trdr.StartDateTime = startdt
               Set trdr.EndDateTime = enddt
               Set note.TimeRange = trdr
          Elseif (SelectedDate <> "") Then
'the user selected a date but now time
               note.StartDate = SelectedDate
          End If
          note.ReminderTime = note.StartDateTime
          note.From = session.UserName
          note.Principal = Owner
          note.ExcludeFromView = "D"
          AlarmSet = 0
          If (profile.EnableAlarms(0) = "1") And (profile.AutoSetAlarms(0) = "1") Then
               Select Case note.AppointmentType(0)
               Case "0","3"
                    If profile.SetAlarmAppointment(0) = "1" Then Call note.ReplaceItemValue("$Alarm", 1)
               Case "1"
                    If profile.SetAlarmAnniversary(0) = "1" Then Call note.ReplaceItemValue("$Alarm", 1)
               Case "2"
                    If profile.SetAlarmEvent(0) = "1" Then Call note.ReplaceItemValue("$Alarm", 1)
               Case "4"
                    If (profile.SetAlarmReminder(0)) = "1" Then Call note.ReplaceItemValue("$Alarm",1)
               End Select
          End If
          note.Chair = Owner
          note.tmpOwner = Owner
          If (profile.CalEntryType(0) = "1") Then note.BookFreeTime = "1"
            'note.EndDateTime = note.StartDateTime
          source.Reload
          If (session.UserName = Owner) Then
               source.RefreshHideFormulas
          Else
               source.refresh
          End If

          NewDocument = True
     Else
'DO NOT SET NewDocument = FALSE
'In some cases, we set it to true in QueryOpen!!!
          If source.InPreviewPane Then Exit Sub
          If source.EditMode And note.HasItem("OrgRepeat") Then
               If note.HasItem("RepeatIds") Then
                    source.EditMode = False
               Else
                    Call SaveOriginalValues
               End If
          End If
     End If

     note.tmpApptFlags = note.AppointmentType
     note.tmpOwner = Owner
     DocWasSaved = False

     Exit Sub

ErrorRoutine:
     Messagebox Error & " (PostOpen)"
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
'refresh the document to get any updated values
     ErrorStatus = 0
     source.reload
     source.refresh

'the first thing we do is make sure the document can be saved

'if the current user is not the owner, and the HideEntries is set, warn the user
     If (db.CurrentAccessLevel < ACLLEVEL_AUTHOR) And (note.OrgConfidential(0) = "1") Then
          Messagebox "You have indicated that you want this document hidden from public viewing, but since you are considered a public viewer, " & _
          "you will not be able to save this document. This option will be de-selected.",0,"Warning"
          note.OrgConfidential = ""
          source.Reload
          source.Refresh
     End If

'if this is not a new document, and the originaltype was an invitation but no longer is, make sure they want to proceed
     If Not(NewDocument) And (Owner = note.Chair(0))Then
          If ((OriginalType = "3") And (note.AppointmentType(0) <> "3")) Then
               If Messagebox("Changing this entry from an Invitation will cancel this meeting. Continue?",36,"Cancel Invitation") = 6 Then
                    If Not(note.IsResponse) Then
                         If (note.HasItem("PostedDate")) Then Call CancelAppointment
                    Else
                         If (parentnote.HasItem("PostedDate")) Then Call CancelAppointment
                    End If
               Else
                    Continue = False
                    DocWasSaved = False
                    Exit Sub
               End If
          End If
     End If

'see if we are creating a document in the past
     If (Owner = note.Chair(0)) And ((note.AppointmentType(0) <> "1") And (note.AppointmentType(0) <> "2")) And (NewDocument) And Not(note.HasItem("RepeatFor")) Then
          Set nowdt = New NotesDateTime("")
          Call nowdt.SetNow
          Set apptdt = New NotesDateTime(note.StartDateTime(0))
          If nowdt.TimeDifference(apptdt) > 0 Then
               If(Msgbox("This appointment is being created in the past. Continue?",36,"Continue") <> 6) Then
                    Continue = False
                    ErrorStatus = 2
                    DocWasSaved = False
                    Exit Sub
               Else
                    ErrorStatus = 0
               End If
          End If
     End If

'check for any conflicts if this is not a reminder and the Warn for Conflicts button is selected
     If (note.OrgDontDoubleBook(0) = "1") And (note.BookFreeTime(0) <> "1") And Not(note.HasItem("RepeatFor")) Then
          If Isarray(OriginalStartDate) Then
               If (OriginalStartDate(0) <> note.StartDateTime(0)) Then
                    If (CheckIfConflictExists) Then
                         Continue = False
                         DocWasSaved = False
                         Exit Sub
                    End If
               End If
          Else
               If (CheckIfConflictExists) Then
                    Continue = False
                    DocWasSaved = False
                    Exit Sub
               End If
          End If
     End If

     If (NewDocument) And (note.hasitem("RepeatFor")) And (note.AppointmentType(0) = "3") Then note.Broadcast = "1"

'if the invitee is modifying the date/time, see if they want to proceed
     If (Owner <> note.Chair(0)) Then
          If (OriginalStartDate(0) <> note.StartDateTime(0)) Or (OriginalEndDate(0) <> note.EndDateTime(0)) Then
               If(Messagebox("You are not the originator of this entry. Are you sure you want to change the date/time?",36,"Warning") = 7) Then
'the user does not want to change the date/time
                    Set trdr = session.CreateDateRange
                    Set startdt = New NotesDateTime(OriginalStartDate(0))
                    Set enddt = New NotesDateTime(OriginalEndDate(0))
                    Set trdr.StartDateTime = startdt
                    Set trdr.EndDateTime = enddt
                    Set note.StartDate = startdt
                    Set note.StartDateTime = startdt
                    Set note.EndDateTime = enddt
                    Set note.TimeRange = trdr
                    source.Reload
                    source.Refresh
               End If
          End If
     End If

     On Error Goto ErrorRoutine

     If note.HasItem("$Alarm") Then
          If Not(note.HasItem("$AlarmOffset") Or note.HasItem("$AlarmTime")) Then
'they want it set automatically so default it as shown in calendar profile
               Select Case note.AppointmentType(0)
               Case "0","3"
                    Call note.ReplaceItemValue("$AlarmOffset", -1 * profile.AppointmentLead(0))
               Case "1"
                    AdjustMinutes = -1440 * profile.AnniversaryLead(0)
                    Set alarmtime = New NotesDateTime(startdt.DateOnly & " " & "00" & Intl.TimeSep & "00" & Intl.TimeSep & "01")
                    alarmtime.AdjustMinute AdjustMinutes
                    Set note.~$AlarmTime = alarmtime
               Case "2"
                    AdjustMinutes = -1440 * profile.EventLead(0)
                    Set alarmtime = New NotesDateTime(startdt.DateOnly & " " & "00" & Intl.TimeSep & "00" & Intl.TimeSep & "01")
                    alarmtime.AdjustMinute AdjustMinutes
                    Set note.~$AlarmTime = alarmtime
               Case "4"
                    AdjustMinutes = -1 * profile.ReminderLead(0)
                    Set alarmtime = New NotesDateTime(remdt.DateOnly & " " & remdt.TimeOnly)
                    alarmtime.AdjustMinute AdjustMinutes
                    Set note.~$AlarmTime = alarmtime
               End Select
               Call note.ReplaceItemValue("$AlarmDescription", note.Subject(0))
          Else
               AlarmDesc = note.GetItemValue("$AlarmDescription")
               If (AlarmDesc(0) = "") Then Call note.ReplaceItemValue("$AlarmDescription",note.Subject(0))
          End If
     Else
          note.RemoveItem("$AlarmOffset")
          note.RemoveItem("$AlarmTime")
          note.RemoveItem("$AlarmDescription")
     End If



     If Not(note.HasItem("DocAuthors")) Then Set item = New NotesItem(note, "DocAuthors", note.From, AUTHORS)

     'if this is a repeating meeting, see if changes need to be copied
     If Not(NewDocument) And note.HasItem("OrgRepeat") Then
          Call GetModifiedSettings
          If (CancelChange) Then
               continue = False
               Exit Sub
          End If
     End If
     DocWasSaved = True

     source.Reload

     Exit Sub

ErrorRoutine:
     Messagebox Error & " (QuerySave)"
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'if this is a new document, get the currently selected time from the Calendar view
     If IsNewDoc Then
          Set ws = New NotesUIWorkspace
          Set session = New NotesSession
          Set db = session.CurrentDatabase
          On Error Resume Next
          Set profile = db.GetProfileDocument("CalendarProfile")
          If Err > 0 Then
               Err = 0
               Messagebox "This mail file does not have a Calendar Profile. " &_
               "Please ask the owner of this mail file to select Actions, Calendar Tools, Calendar Profile from the menu to create one.", 0, "Calendar Profile"
               continue = False
               Exit Sub
          End If
          If (profile.Owner(0) <> "") Then
               If (db.CurrentAccessLevel < ACLLEVEL_AUTHOR) And (profile.CalEntryHide(0) = "1") Then
                    Set nam = New NotesName(profile.Owner(0))
                    Messagebox nam.Common & " has specified that new Calendar Entries are hidden from public viewing. You must have at least author access to create new Calendar Entries.",48,"Warning"
                    continue = False
                    Exit Sub
               End If
          End If
          SelectedDate = ws.CurrentCalendarDateTime
          Set startdt = New NotesDateTime(SelectedDate)
     End If
'if this is a new document, then exit this routine
     If Isnewdoc Or source.InPreviewPane Then Exit Sub

     Set ws = New NotesUIWorkspace
     Set uidoc = source
     InstantiateObjectVariables


     On Error Goto ErrorRoutine
     On Error 4005 Resume Next   'this will handle the parentnote not being found

     Set trdr = session.CreateDateRange

'see if this is a document being created from an existing one
     If (note.HasItem("tmpNewDoc")) Then
          NewDocument = True
          Exit Sub
     End If

     If (note.HasItem("$Alarm")) Then
          AlarmSet = 1
          InAlarmFolder = True
     End If

     note.tmpOwner = Owner
     If (note.IsResponse) Then
          Set parentnote = db.GetDocumentByUNID(note.ParentDocumentUNID)
          If (parentnote Is Nothing) Then
'this must be part of a repeat set -> we do not call GetParentDocument because that function is used to recreate the parent if it can't be found
'we do not need to create the parent document since this was part of a repeat set
               If (note.HasItem("OrgRepeat")) Then
                    Messagebox "This calendar entry belonged to a repeat set. The parent document cannot be found so this entry will be converted to a non-repeating entry.",0,"Status"
                    note.RemoveItem("$REF")
                    note.RemoveItem("$REFOPTIONS")
                    note.RemoveItem("OrgRepeat")
                    Call note.Save(True,True,True)
               End If
          End If
     End If

'we need to get the original start and end date times
     OriginalStartDate = note.StartDateTime
     OriginalEndDate = note.EndDateTime
     OriginalType = note.AppointmentType(0)

     If (note.AppointmentType(0) <> "3") Then Exit Sub

'get any update items if we are not the chair
     If Not (note.tmpOwner(0) = note.Chair(0)) Then
          Call note.RemoveItem("MailOptions")
          Call note.RemoveItem("SendTo")
          CheckForNoticeUpdates
          note.SendTo = ""
     Else
'we are the chair

          If (note.IsResponse) Then
'this is a repeat instance; we need to add our parent's required & optional attendees
               OriginalRequired = parentnote.RequiredAttendees
               OriginalOptional = parentnote.OptionalAttendees
               OriginalRoom = parentnote.Room(0)
               Call CreateInviteeTable(parentnote)
          Else
               OriginalRequired = note.RequiredAttendees
               OriginalOptional = note.OptionalAttendees
               OriginalRoom = note.Room(0)
               Call CreateInviteeTable(note)
          End If
     End If
     Print Now
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (QueryOpen)"
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
     Dim InstanceWarned As Integer

'if the document is in read mode, was not saved, or is a conflict, bail
     If source.EditMode = False Or DocWasSaved = False Then Exit Sub
'we need to make this check here -> if the user is in preview pane, the note object would not be set
     If note.HasItem("$Conflict") Then Exit Sub

'if this is a parent document, check for PostedDate
     If Not(NewDocument) Then
          If (note.AppointmentType(0) = "3") Then
               If (OriginalStartDate(0) <> note.StartDateTime(0)) Or (OriginalEndDate(0) <> note.EndDateTime(0)) Then
                    IsDateChange = True
               Else
                    IsDateChange = False
               End If
'see if the room has changed
               If (OriginalRoom <> note.Room(0)) And (OriginalRoom <> "") Then
                    IsRoomChange = True
                    note.OriginalRoom = OriginalRoom
               Else
                    IsRoomChange = False
               End If
               If (IsDateChange Or IsRoomChange) And (note.chair(0) = owner) Then
                    If (note.IsResponse) Then
                         If (parentnote.HasItem("PostedDate") Or (note.RequiredResources(0) <> "") Or (note.RoomRequired(0) = "1" And note.Room(0) <> "")) Then NeedsReschedule = True
                    Else
                         If (note.HasItem("PostedDate")) Or (note.RequiredResources(0) <> "") Or (note.RoomRequired(0) = "1" And note.Room(0) <> "") Then NeedsReschedule = True
                    End If
               End If
          End If
     End If

     If (NeedsReschedule) Then note.SequenceNum = note.SequenceNum(0) + 1

'If they have not indicated that this should repeat then we don't need to do this stuff
 'If they have not indicated that this should repeat then we don't need to do this stuff
     If note.HasItem("OrgRepeat") And (note.tmpAction(0) <> "Confirm") Then
          Action = note.tmpAction(0)
          Call RepeatSave
     End If

     If (NeedsReschedule) Then Call RescheduleAppointment

     Select Case note.tmpAction(0)
     Case "Confirm"
          ConfirmAppointment
     Case "Cancel"
          CancelAppointment
     Case "Decline"
'this gets called if an invitee changes their mind
          DeclineInvitation
     Case "Delegate"
'the invitee is delegating a meeting that has been accepted
          DelegateInvitation
     End Select

     On Error Goto ErrorRoutine

     If note.HasItem("$Alarm") Then
          ws.EnableAlarms(True)
          If Not(note.HasItem("$AlarmOffset") Or note.HasItem("$AlarmTime")) Then
'they want it set automatically so default it as shown in calendar profile
               Select Case note.AppointmentType(0)
               Case "0","3"
                    Call note.ReplaceItemValue("$AlarmOffset", -1 * profile.AppointmentLead(0))
               Case "1"
                    AdjustMinutes = -1440 * profile.AnniversaryLead(0)
                    Set alarmtime = New NotesDateTime(startdt.DateOnly & " " & "00" & Intl.TimeSep & "00" & Intl.TimeSep & "01")
                    alarmtime.AdjustMinute AdjustMinutes
                    Set note.~$AlarmTime = alarmtime
               Case "2"
                    AdjustMinutes = -1440 * profile.EventLead(0)
                    Set alarmtime = New NotesDateTime(startdt.DateOnly & " " & "00" & Intl.TimeSep & "00" & Intl.TimeSep & "01")
                    alarmtime.AdjustMinute AdjustMinutes
                    Set note.~$AlarmTime = alarmtime
               Case "4"
                    AdjustMinutes = -1 * profile.ReminderLead(0)
                    Set alarmtime = New NotesDateTime(remdt.DateOnly & " " & remdt.TimeOnly)
                    alarmtime.AdjustMinute AdjustMinutes
                    Set note.~$AlarmTime = alarmtime
               End Select
               Call note.ReplaceItemValue("$AlarmDescription", note.Subject(0))
          Else
               AlarmDesc = note.GetItemValue("$AlarmDescription")
               If (AlarmDesc(0) = "") Then Call note.ReplaceItemValue("$AlarmDescription",note.Subject(0))
          End If
'if the document is not in the Alarms folder, put it in there if it is not the parent document of a repeat set
          If Not(InAlarmFolder) Then
               If Not(note.HasItem("RepeatDates")) Then
                    If (note.noteid = "0") Then Call note.Save(True,True,True)
                    Call note.PutInFolder("$Alarms")
               End If
          Else
'the document is in the alarms folder, but if the times changed, then we need to add it back in if it is not the parent document of a repeat set
'we only need to check startdate time, regardless of appointment type since the alarm is based upon the start date time
               If(OriginalStartDate(0) <> note.StartDateTime(0)) And Not(note.HasItem("RepeatIds"))Then Call note.PutInFolder("$Alarms")
          End If
          ws.CheckAlarms
     End If

'check to see if this is a repeating entry and the repeat documents were not created
     If (NewDocument) And (note.HasItem("OrgRepeat")) And Not(note.HasItem("RepeatIds")) Then Call RepeatSave

'see if we should invite the users/resources to this meeting
     If (note.AppointmentType(0) = "3") And (note.Chair(0) = Owner) And (ErrorStatus = 0) Then
          If (note.Resources(0) <> "") Or (note.SendTo(0) <> "") Or (note.CopyTo(0) <> "") Or (note.RoomRequired(0) = "1" And note.RoomToReserve(0) <> "" And OriginalRoom = "") Then
               If Messagebox("Do you want to send this to the people/resources you invited?", 4 + 32, "Close") = 6 Then
'the user wants to send this out
'first, invite users
                    If (note.SendTo(0) <> "") Or (note.CopyTo(0) <> "") Then
                         If note.HasItem("Body") Then
                              ErrorStatus = SendInvitation
                              If (errorstatus > 0) Then
                                   continue = False
                                   ErrorStatus = 0
                                   Exit Sub
                              End If
                         Else
                              ErrorStatus = SendInvitation
                              If (errorstatus > 0) Then
                                   continue = False
                                   ErrorStatus = 0
                                   Exit Sub
                              End If
                         End If
                         If (note.HasItem("OrgRepeat")) And (note.IsResponse) And (ChangeWhich <> "0") Then
                              Messagebox "The people/resources invited will be for this repeat instance only.",0,"Status"
                              InstanceWarned =True
                         End If
                    End If
'invite any resources -> resources are on a per repeat instance basis, so we only invite resources for this meeting
                    If (note.Resources(0) <> "") Then
                         Call InviteResources(note)
                         If (note.HasItem("OrgRepeat")) And (note.IsResponse) And (ChangeWhich <> "0") And Not(InstanceWarned) Then Messagebox "The people/resources invited will be for this repeat instance only.",0,"Status"
                    End If
'invite the room -> the user can change the room for multiple repeat instances
                    If (note.RoomRequired(0) = "1") And (note.RoomToReserve(0) <> "") Then
                         If (note.HasItem("tmpRescheduleWhich")) Then
                              Call ProcessRepeatingResources(note.tmpreschedulewhich(0),ORS_MSGTYPE_INVITE,ORS_STATE_ROOM)
                         Else
                              Call InviteRoom(note)
                         End If
                    End If
               End If
          End If
     End If
     If note.HasItem("RepeatFor") And (NewDocument) Then
          note.Subject = "Do Not Delete - Repeat parent for " & note.Subject(0)
     End If

     If note.HasItem("OrgRepeat") And Not(note.IsResponse) Then note.RemoveItem("CalendarDateTime")

     Call MarkTempFields(note)
     Call note.Save(True,True,True)

     If (note.tmpAction(0) = "CounterPropose") Then
          note.NoticeType = ORS_MSGTYPE_COUNTER
          note.Form = "Notice"
          Call uidoc.Reload
          noteunid = note.UniversalID
          Set note = db.GetDocumentByUNID(noteunid)
          Set uidoc =  ws.EditDocument(True,note)
     End If

'     If notice Is Nothing Then
          'Call MarkTempFields
          'note.Save True,True
     ws.ViewRefresh
 '         Exit Sub
  '   End If

%REM
     If notice.NoticeType(0) = ORS_MSGTYPE_RESCHEDULE Or _
     notice.NoticeType(0) = ORS_MSGTYPE_CONFIRMATION Or _
     notice.NoticeType(0) = ORS_MSGTYPE_CANCEL Or _
     notice.NoticeType(0) = ORS_MSGTYPE_STATUSUPDATE Then
          note.OriginalAttendees = OriginalAttendees
          'Call SendUpdateNotice
     End If
%ENDREM
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (QueryClose)"
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
     Dim startitem As NotesItem
     Dim enditem As NotesItem

     If Not (source.EditMode) Then Exit Sub

     On Error Goto ErrorRoutine

'if the user is attempting to change the appointment type of a repeating meeting, don't let them
     If Not(NewDocument) And (note.HasItem("OrgRepeat")) And (note.IsResponse) And (OriginalType <> note.AppointmentType(0)) Then note.AppointmentType = OriginalType

'if there is no chair item and there should be, add it
     If Not(note.HasItem("Chair")) Then note.Chair = Owner

'if the user is changing this from a non-invitation to an invitation, we need to set up the invitee objects
     If (note.AppointmentType(0) = "3" And OriginalType <> "3") And (note.Chair(0) = Owner) Then Call CreateInviteeTable(note)

'First see if we have alarm set by default for this type and the new type doesn't have default alarm specified in Calendar Profile
     If AlarmSet = 0 And note.HasItem("$Alarm") Then
          Call note.RemoveItem("$Alarm")
     End If
'If $Alarm is not set and $AlarmOffset is not, we check if it should be
'(they would both be set if the user set the alarm manually)
     If Not(note.HasItem("$Alarm")) And Not(note.HasItem("$AlarmOffset") Or note.HasItem("$AlarmTime")) And (note.tmpAlarmOff(0) <> "1") And (profile.EnableAlarms(0) = "1") And (profile.AutoSetAlarms(0) = "1") Then
          Select Case note.AppointmentType(0)
          Case "0","3"
               If profile.SetAlarmAppointment(0) = "1" Then Call note.ReplaceItemValue("$Alarm", 1)
          Case "1"
               If profile.SetAlarmAnniversary(0) = "1" Then Call note.ReplaceItemValue("$Alarm", 1)
          Case "2"
               If profile.SetAlarmEvent(0) = "1" Then Call note.ReplaceItemValue("$Alarm", 1)
          Case "4"
               If (profile.SetAlarmReminder(0)) = "1" Then Call note.ReplaceItemValue("$Alarm",1)
          End Select
     End If

'tmpFreeTime is set when you click the FreeTime action
     Select Case note.tmpFreeTime(0)
'The first time through, we are only setting the Attendee list so that the FreeTime dialog can use it
     Case "0"
          OriginalTimeRange = note.TimeRange
          note.tmpFreeTime = "1"
'we need to get the actual text from the time control since LotusScript date/time objects don't work as well as Notes objects
          trdr.Text = uidoc.FieldGetText("TimeRange")
          Set startdt = New NotesDatetime(uidoc.FieldGetText("StartDate") & " " & trdr.StartDateTime.TimeOnly)
          Set enddt = New NotesDateTime(uidoc.FieldGetText("StartDate") & " " & trdr.EndDateTime.TimeOnly)
          Set note.StartDateTime = startdt
          Set note.EndDateTime = enddt
          note.StartDate = note.StartDateTime
'The second time through, we are recalcing TimeRange from StartDateTime and EndDateTime
     Case "1"
          note.RemoveItem("tmpFreeTime")
          Set startitem = note.GetFirstItem("StartDateTime")
          Set enditem = note.GetFirstItem("EndDateTime")
          Set note.StartDate = startitem.DateTimeValue
          Set trdr.StartDateTime = startitem.DateTimeValue
          Set trdr.EndDateTime = enditem.DateTimeValue
          Set note.TimeRange = trdr
'otherwise we are recalcing based on what is on the screen
     Case Else
          If (note.AppointmentType(0) = "0") Or (note.AppointmentType(0) = "3") Then
'this is a personal appointment or a meeting
               trdr.Text = uidoc.FieldGetText("TimeRange")
               Set startdt = New NotesDatetime(uidoc.FieldGetText("StartDate") & " " & trdr.StartDateTime.TimeOnly)
               Set enddt = New NotesDateTime(uidoc.FieldGetText("StartDate") & " " & trdr.EndDateTime.TimeOnly)
               Set note.StartDateTime = startdt
               Set note.EndDateTime = enddt
               Set note.StartDate = startdt
               Set trdr.StartDateTime = startdt
               Set trdr.EndDateTime = enddt
               Set note.TimeRange = trdr
               If startdt.TimeDifference(enddt) > 0 Then
                    enddt.AdjustDay(1)
                    Set note.EndDateTime = enddt
               End If
               Call note.ReplaceItemValue("$NoPurge",note.EndDateTime(0))
          Elseif (note.AppointmentType(0) = "4") Then
'this is a reminder
               Set remdt = New NotesDateTime(uidoc.FieldGetText("StartDate") & " " & uidoc.FieldGetText("ReminderTime"))
               Set note.StartDateTime = remdt
               note.ReminderTime = note.StartDateTime
               note.StartDate = note.StartDateTime
               Call note.RemoveItem("EndDateTime")
               Call note.RemoveItem("TimeRange")
               Call note.ReplaceItemValue("$NoPurge",note.StartDateTime(0))
          Else
               Set Intl = session.INternational
               Set startdt = New NotesDateTime(uidoc.FieldGetText("StartDate") & " 00" & Intl.Timesep & "00" & Intl.Timesep & "01")
               Set note.StartDateTime = startdt
               Set enddt = New NotesDateTime(note.StartDateTime(0))
               'If note.Duration(0) > 1 Then enddt.AdjustDay(note.Duration(0) - 1)
               enddt.AdjustDay(note.Duration(0) - 1)
               enddt.AdjustHour(23)
               enddt.AdjustMinute(59)
               Set note.EndDateTime = enddt
               Call note.ReplaceItemValue("$NoPurge",note.EndDateTime(0))
          End If
     End Select

'Reminder's should always have a $BusyPriority of 2
     If (note.AppointmentType(0) = "4") Or (note.BookFreeTime(0) = "1") Then
          Call note.ReplaceItemValue("$BusyPriority","2")
     Else
          Call note.ReplaceItemValue("$BusyPriority","1")
     End If
'if this is a reminder, remove the $BusyName
     If (note.AppointmentType(0) = "4") Or (note.HasItem("RepeatFor"))Then
          Call note.removeItem("$BusyName")
     Else
          Call note.replaceItemValue("$BusyName",Owner)
     End If
     note.CalendarDateTime = note.StartDateTime
'add the correct icon to the view, as well as the conflict checking value
     Select Case note.AppointmentType(0)
     Case "0"
          Call note.ReplaceItemValue("_ViewIcon",160)
          note.OrgDontDoubleBook = profile.ConflictMeeting(0)
          note.OrgTable = ORS_ITEM_CALENDAR
     Case "1"
          Call note.ReplaceItemValue("_ViewIcon",63)
          note.OrgDontDoubleBook = profile.ConflictAnniv(0)
          note.OrgTable = ORS_ITEM_ANNIVERSARY
     Case "2"
          Call note.ReplaceItemValue("_ViewIcon",9)
          note.OrgDontDoubleBook = profile.ConflictEvent(0)
          note.OrgTable = ORS_ITEM_PLANNER
     Case "3"
          Call note.ReplaceItemValue("_ViewIcon",158)
          note.OrgDontDoubleBook = profile.ConflictMeeting(0)
          note.OrgTable = ORS_ITEM_CALENDAR
          If Not(note.HasItem("SequenceNum")) Then note.SequenceNum = 1
     Case "4"
          Call note.ReplaceItemValue("_ViewIcon",10)
          note.OrgDontDoubleBook = ""
          note.OrgTable = ORS_ITEM_CALENDAR
          note.BookFreeTime = "1"
     End Select
'if this is a meeting and the owner != chair, ensure that this is a meeting
     If (note.HasItem("Chair")) Then
          If (note.chair(0) <> Owner) Then note.AppointmentType = "3"
     End If

     'add the $PublicAccess item if this is a public document
     If (note.OrgConfidential(0) <> "1") Then
          If Not (note.HasItem("$PublicAccess")) Then Call note.ReplaceItemValue("$PublicAccess","1")
     Else
          If (note.HasItem("$PublicAccess")) Then Call note.RemoveItem("$PublicAccess")
     End If

     Call source.Reload
     Call source.RefreshHideFormulas
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (PostRecalc)"
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)
'If they have put it in edit mode, we want to save the original values
     If Not(source.InPreviewPane) Then If source.EditMode And note.HasItem("OrgRepeat") Then Call SaveOriginalValues
End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
'if the document is in the preview pane, editing is not allowed
     If (source.InPreviewPane) Then
          Continue = False
     Else
          If note.HasItem("RepeatIds") And Not(source.EditMode) Then continue = False
     End If
End Sub
p!@    |"(
3_    `4%
$h$h$`
p%X$-
K@    ,P
[@    K(
K@    ,p
K@    ,P    K
K@    ,P    J
#}l'&
#}l'&
#}d(%
    Hidden Fields:
AppointmentType
    0S0E
tmpRealDate
    0S0E
tmpRealDate
The invitation from
chair
 for
tmpRealDate
S0D0V
tmpRealTime
S1T1V
 has been confirmed."
    8S15S16S17S18S24S25S26S27S33S34S
tmpConfirmMsg
$AlarmY
    0S0E
TimeDisp
$AlarmTimeh
$AlarmTime
$AlarmOffseth
$AlarmOffsetA
 minutes
$AlarmOffset
before
after
 the start time of this entry."
    1S2S10S11S25S32S33S34S35S38S39S43S45S46S
TimeDisp
Alarm enabled: an alarm will occur
TimeDisp"
    0R3S4S6S7S8S
tmpAlarmDisplay
Calendar Entry
AppointmentType
tmpOwner
Chair
    1S2S3S2E4S5S6S
AppointmentType
    2S3S5S6S8S9S10S11S12S13S14S15S
    Duration (days):
    Brief description:
    Date:
AppointmentType
    1S2S3S4S
    Time:
CalendarProfile
CalEntryType
    1S2S
    0R3S4S5S6S7S8S
AppointmentType
Appointment|0Invitation|3Event|2Reminder|4Anniversary|1
AppointmentType
Duration
You must enter a duration of at least 1 day.{
    3S4S5S6S7S8S10SDuration
AppointmentType
    1S2S5S6S7S
StartDateTime
    0S0E
ReminderTime
SubjectEnter a brief description for this entry (i.e < 100 characters).
StartDateTime
    4S6S
newDateTime
    0RR1S2S
minutes
newDateTime
    0R1S2S
seconds
newDateTime
    0R1S2S3S4S
adjust time to the next 15 minute interval
    0RR1S
StartDateTime
minutes
newDateTime
minutes
seconds
minutes
newDateTime
minutes
seconds
minutes
newDateTime
minutes
seconds
minutes
newDateTime
minutes
seconds
newDateTime
seconds
    0R1S2S3S6S7S9S13S15S17S19S21S22S23S25S28S29S30S32S36S38S40S42S44S45S46S48S51S52S53S55S59S61S63S65S67S68S69S71S74S75S76S78S82S84S86S88S90S91S92S94S97S101S103S105S107S109S111S
MinuteDur
CalendarProfile
DefaultDuration
    0RR1S2S6S
MinuteDuration
MinuteDur
MinuteDur
MinuteDur
    0R1S2S4S6S7S9S10S12S13S16S17S18S
EndDateTime
StartDateTime
MinuteDuration
    0RR1S2S3S7S9S11S13S15S17S
StartDateTime
    0RRL
StartDate
StartDate
    3S4S5S6S
StartDate
AppointmentType
    1S2S3S4S5S
StartDateTime
EndDateTime
    6S7S8S9S
TimeRange
AppointmentType
    1S2S
tmpApptFlags
AppointmentType
tmpApptFlagsY
AppointmentType
BookFreeTime
    3S4S5S6S15S16S17S18S19S
tmpApptFlags
AppointmentType
    0R1S2S3S
BookFreeTime
Pencil in|1
CalendarProfile
CalEntryHide
    0S0E
OrgConfidential
Not for public viewing|1
    Detailed description:
AppointmentType
    1S2S
AppointmentType
tmpOwner
Chair
    1S2S3S2E4S5S6S7S8S
  @
 @@ @
 `@ `
@ @@
@@@@@
@`@@`
` @`
`@@`@
``@``
 Invitations
    Send invitations to:
SendTo
SendTo
Principal
    1S2S10S
SendTo}
SendToEnter the names of people who you want to send invitations to.
    Optional invitees:
CopyTo
CopyTo
Principal
    1S2S8S10S
CopyTo}
CopyToOptional invitees receive invitations but are not required to attend the meeting.
Broadcast
I don't want responses from the Invitees|1
tmpFreeTime
    1S2S3S
tmpApptFlags
AppointmentType
    0R1S2S3S
tmpOwner2
tmpOwner
    0R1S2S3S
tmpOwner2
SendTo
RequiredAttendees
CopyTo
OptionalAttendees
Resources
RequiredResources
Uninvited
StartDateTime
EndDateTime
tmpOwner2
    0R1S2S3S
    Find Free Time...
AppointmentType
RequiredAttendees
    1S2S3S4S8S9S
    Invitations have been sent to:
RequiredAttendees
    0S0E
tmpSendTo
AppointmentType
OptionalAttendees
    1S2S3S4S8S9S
    Optional invitees:
OptionalAttendees
    0S0E
tmpCopyTo
AppointmentType
    1S2S3S4S5S6S
    Meeting location:
tmpRoom
AppointmentType
tmpOwner
Chair
    1S2S3S4S5S6S7S8S
Reservations
  @
 @@ @
 `@ `
@ @@
@@@@@
@`@@`
` @`
`@@`@
``@``
Reservations
HomeServer
    1S2S
HomeServer
Invalid Home Server
Please edit your current location document and specify a home/mail server.
    0R3S4S5S6S12S13S14S
RoomAvailable
HomeServer
names.nsf
($Rooms)
Select a room to reserve for this meeting.
    0R1S2S
RoomAvailable
RoomAvailable
    0RR1S2S3S10S11S
RoomAvailable
Error
RoomAvailable
    0R6S7S18S19S
RoomToReserve
    0R1S2S3S
RoomRequired
    0R1S2S3S
RoomSpecific
    0R1S2S3S
RoomAvailable
    0R1S2S3S
    Reserve Specific Room...
    - or -
HomeServer
    1S2S
HomeServer
Invalid Home Server
Please edit your current location document and specify a home/mail server.
    0R3S4S5S6S12S13S14S
Sites
HomeServer
names.nsf
($Rooms)
    0R1S2S
Select the site to search for a room.
Sites
    0R1S2S7S8S
Invalid Selection
You didn't select a site.
    0R3S4S5S6S14S15S
SiteKey
CN=*/O=
Site"
    0R1S2S3S4S
Capacity
SendTo
CopyTo
RequiredAttendees
OptionalAttendees
    0R1S2S
RoomAvailable
SiteKey
StartDateTime
EndDateTime
Capacity
    0R1S2S
RoomAvailable
No Room Found
No room was found during the specified time.
    0R3S4S5S6S11S12S14S15S
RoomAvailable
RoomAvailable
    0RRR1S2S3S10S11S
RoomAvailable
Error
RoomAvailable
    0R6S7S18S19S
RoomToReserve
    0R1S2S3S
RoomRequired
    0R1S2S3S
RoomAvailable
    0R1S2S3S
RoomSpecific
    0R1S2S3S
    Find Available Room...
tmpRoom1
HomeServer
    1S2S
HomeServer
Invalid Home Server
Please edit your current location document and specify a home/mail server.
    0R3S4S5S6S12S13S14S
NewResources
HomeServer
names.nsf
($Resources)
Resources
Select resources to reserve for this meeting.
    0R1S2S
NewResourcesZ
Error
NewResourcesV
    0R6S7S18S19S
Resources
NewResources
Resources
RequiredResources
    0R1S2S3S
    Reserve Resources...
Resources
RequiredResources
    0S0E
tmpResources
AppointmentType
    1S2S
    _________________________________________________________________________
chair
    1S2S
    Chairperson:
Chair
tmpChairperson
AppointmentType
Principal
    1S2S3S4S5S6S7S8S
    Sent by:
Principal
Principal
    3S4S
tmpSentBy
AppointmentType
tmpOwner
Chair
OrgRepeat
Broadcast
RequiredResources
RoomRequired
tmpNewDoc
    1S2S3S4S5S2E6S7S8S9S10S16S17S18S19S21S22S23S24S25S26S27S28S30S31S
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim dispnote As NotesDocument


     If Not(HasInviteeInfo) Then
          If (note.HasItem("OrgRepeat") And (note.IsResponse)) Then
               Call GetInviteeStatus(parentnote,False)
               Call GetInviteeStatus(note,True)
          Else
               Call GetInviteeStatus(note,False)
          End If
     End If

     If Not(HasBeenProcessed) Then Call ProcessInviteeTable(note)

     Set dispnote = New NotesDocument(db)
     dispnote.tmpAccepted = UsersAccepted
     dispnote.tmpDeclined = UsersDeclined
     dispnote.tmpDelegated = UsersDelegated
     dispnote.tmpCounter = UsersCountered
     dispnote.tmpDelegee = Delegees
     dispnote.tmpUninvited = note.Uninvited
     dispnote.tmpWaiting = UsersWaiting
     dispnote.tmpResAccepted = ResourcesReserved
     dispnote.tmpResDeclined = ResourcesDeclined
     dispnote.tmpResWaiting = ResourcesWaiting
     dispnote.SequenceNum = note.SequenceNum
     dispnote.Subject = note.Subject
     dispnote.Room = note.Room
     dispnote.Broadcast = note.Broadcast
     dispnote.StartDate = note.StartDate
     dispnote.StartDateTime = note.StartDateTime
     dispnote.EndDateTime = note.EndDateTime
     dispnote.requiredattendees = note.requiredattendees
     dispnote.optionalattendees = note.optionalattendees
     dispnote.RealDocUNID = note.UniversalID
     dispnote.NoticeType = note.NoticeType

     Call ws.DialogBox("(InviteeResponses)",False,False,True,,True,,"Invitee Responses",dispnote)
End Sub
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Display invitee responses...
AppointmentType
tmpOwner
Chair
    1S2S3S4S5S6S
RepeatIDs
    0S0E
Repeating meeting information:
RepeatUnit
    1S2S
    This meeting repeats
RepeatInterval
tmpRepeatInterval
every|1every 2nd|2every 3rd|3every 4th|4every 5th|5every 6th|6every 7th|7every 8th|8every 9th|9every 10th|10every 11th|11every 12th|12every 13th|13every 14th|14every 15th|15every 16th|16every 17th|17every 18th|18every 19th|19every 20th|20every 21st|21every 22nd|22every 23rd|23every 24th|24every 25th|25every 26th|26every 27th|27every 28th|28every 29th|29every 30th|30every 31st|31
RepeatUnit
tmpRepeatUnit
day|Dweek|Wmonth|MDmonth|MPyear|YDcustom|C
RepeatAdjust
tmpRepeatAdjust
RepeatUnit
 on Sunday|0
 on Monday|1
 on Tuesday|2
 on Wednesday|3
 on Thursday|4
 on Friday|5
 on Saturday|6
RepeatUnit
 on the 1st Sunday|1.0
 on the 1st Monday|1.1
 on the 1st Tuesday|1.2
 on the 1st Wednesday|1.3
 on the 1st Thursday|1.4
 on the 1st Friday|1.5
 on the 1st Saturday|1.6
 on the 2nd Sunday|2.0
 on the 2nd Monday|2.1
 on the 2nd Tuesday|2.2
 on the 2nd Wednesday|2.3
 on the 2nd Thursday|2.4
 on the 2nd Friday|2.5
 on the 2nd Saturday|2.6
 on the 3rd Sunday|3.0
 on the 3rd Monday|3.1
 on the 3rd Tuesday|3.2
 on the 3rd Wednesday|3.3
 on the 3rd Thursday|3.4
 on the 3rd Friday|3.5
 on the 3rd Saturday|3.6
 on the 4th Sunday|4.0
 on the 4th Monday|4.1
 on the 4th Tuesday|4.2
 on the 4th Wednesday|4.3
 on the 4th Thursday|4.4
 on the 4th Friday|4.5
 on the 4th Saturday|4.6
 on the Last Sunday|5.0
 on the Last Monday|5.1
 on the Last Tuesday|5.2
 on the Last Wednesday|5.3
 on the Last Thursday|5.4
 on the Last Friday|5.5
 on the Last Saturday|5.6
RepeatUnit
 on the 1st day|1
 on the 2nd day|2
 on the 3rd day|3
 on the 4th day|4
 on the 5th day|5
 on the 6th day|6
 on the 7th day|7
 on the 8th day|8
 on the 9th day|9
 on the 10th day|10
 on the 11th day|11
 on the 12th day|12
 on the 13th day|13
 on the 14th day|14
 on the 15th day|15
 on the 16th day|16
 on the 17th day|17
 on the 18th day|18
 on the 19th day|19
 on the 20th day|20
 on the 21st day|21
 on the 22nd day|22
 on the 23rd day|23
 on the 24th day|24
 on the 25th day|25
 on the 26th day|26
 on the 27th day|27
 on the 28th day|28
 on the 29th day|29
 on the 30th day|30
 on the 31st day|31
    3S4S6R8R10R12R14R16R18R20RS5E21S22S24R26R28R30R32R34R36R38R40R42R44R46R48R50R52R54R56R58R60R62R64R66R68R70R72R74R76R78R80R82R84R86R88R90R92R94RS5E95S96S98R100R102R104R106R108R110R112R114R116R118R120R122R124R126R128R130R132R134R136R138R140R142R144R146R148R150R152R154R156R158R160S
     starting on
RepeatStartDate
tmpRepeatStartDate
RepeatHow
tmpRepeatHow
until|Ufor|F
RepeatFor
tmpRepeatUnit
    7S9S
RepeatHow
RepeatUntil
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
RepeatFor
month
RepeatForUnit
RepeatFor
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
weeks
RepeatFor
RepeatForUnit
months
RepeatFor
RepeatForUnit
years
    0R3S4S6S10S13S17S18S19S20S23S24S25S26S27S28S30S32S33S34S35S36S37S38S40S42S43S44S45S46S47S48S50S52S53S54S55S56S57S58S60S62S64S65S68S69S70S71S72S73S75S77S78S79S80S81S82S83S85S87S88S89S90S91S92S93S95S97S98S99S100S101S102S103S105S107S
tmpRepeatUntil
RepeatUnit
 (if the date occurs on a weekend the meeting
RepeatWeekends
occurs anyway
RepeatWeekends
is moved to Friday
RepeatWeekends
is moved to Monday
RepeatWeekends
is moved to Nearest Weekday
RepeatWeekends
is deleted
    3S4S5S6S7S8S10S12S13S14R17S18S20S22S23S24S26S28S29S30S32S34S35S36S38S40S41S42S44S46S48S49S
tmpRepeatWeekends
RepeatIds
    0S0E
    Meeting Dates:
RepeatDates
tmpRepeatDates
RepeatDates
    0S0E
IncludeComment
    1S2S
    My comments:
Comments
tmpComments
_ViewIcon
    Hidden:
Appointment
$ExpandGroups
Edit Document
Attendees
Principal
RepeatIds
    4S5S6S7R11S12S13S14S15S17S18S
_Forward
_Move to Folder...
Delivery Information...Kz
DeliveryInfo
Delivery Information
    4S5S6S7S8S9S10S12S
Close
    0S0E
Save and Close@
    0S7S12S|
Attendees
Principal
RepeatIds
    4S5S6S7R11S12S13S14S15S17S18S
_Edit Document
Attendees
Principal
RepeatIds
    4S5S6S7R11S12S13S14S15S17S18S
Remove\Invitees...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     SelectUserToRemove
End Sub
AppointmentType
Principal
tmpOwner
OrgRepeat
NoticeType
tmpNewDoc
    1S2S3S4R5S6S7S8S9S2E10S14S15S16S17S18S19S
Remove\Rooms & Resources...K'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call SelectResourcesToRemove
End Sub
AppointmentType
Principal
tmpOwner
OrgRepeat
RequiredResources
NoticeType
tmpNewDoc
    1S2S3S4R5S6S7S8S9S2E10S14S15S17S18S19S20S21S22S24S25S26S27S28S29S
Send|
you can't send if there is no SendTo field
SendTo
CopyTo
No SendTo
You must enter at least one name in the Required or Optional Attendees field.
    0R7S8S11S12S14S20S22S26S
if it is a new doc, we need to save before sending in order to send the Body field
    0RR1S
this should only happen on @IsNewDoc - doing it always in order to coordinate with subform (should use db lib)
    0R1S
tmpAction
SaveBody
    0R1S2S3S
@If(@IsNewDoc; @Command([FileSave]);  ......  );
    0R1S
OrgPersonal
Personal Document
You cannot sent a personal document.
    0RR3S4S6S12S14S18S
tmpAction
    0RR1S2S3S
    0R7S12S
AppointmentType
PostedDateh
Principal
tmpOwner
RepeatIds
    1S2S3S4S9S10R11S12S14S15S
Repeat...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     'the refresh is temporary - until the date/time fields get fixed
     uidoc.Refresh

     If ws.DialogBox("(RepeatForm)", True, True, False, False, False, False, "Repeat Rules") = False Then Exit Sub

     Select Case note.RepeatUnit(0)
     Case "D"
          note.RepeatInterval = note.RepeatInterval_D
     Case "W"
          note.RepeatInterval = note.RepeatInterval_W
          note.RepeatAdjust = note.RepeatAdjust_W
     Case "MD"
          note.RepeatInterval = note.RepeatInterval_MDMP
          note.RepeatAdjust = note.RepeatAdjust_MD
     Case "MP"
          note.RepeatInterval = note.RepeatInterval_MDMP
          note.RepeatAdjust = note.RepeatAdjust_MP
     Case "YD"
          note.RepeatInterval = note.RepeatInterval_YD
     Case "C"
          note.RepeatDates = note.RepeatAdjust_C
     End Select

     note.RemoveItem("RepeatInterval_D")
     note.RemoveItem("RepeatInterval_W")
     note.RemoveItem("RepeatInterval_MDMP")
     note.RemoveItem("RepeatInterval_YD")
     note.RemoveItem("RepeatAdjust_W")
     note.RemoveItem("RepeatAdjust_MD")
     note.RemoveItem("RepeatAdjust_MP")
     note.RemoveItem("RepeatAdjust_C")
     note.StartDate = note.RepeatStartDate
     uidoc.Reload
End Sub
tmpNewDoc
    2S3S
Alarm options...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Dim dateitem As NotesItem
     Dim timeitem As NotesItem

   'this causes the StartDateTime field to get rebuilt
     note.tmpFreeTime = "2"
     uidoc.Refresh
     note.RemoveItem("tmpFreeTime")
     uidoc.Reload
     If profile.EnableAlarms(0) <> "1" Then
          Dim boxType As Long
          boxType& = MB_YESNO + MB_ICONQUESTION
          If Messagebox("You have not enabled alarms in your Calendar Profile.  Do you want to enable them now?", boxType&, "Enable Alarms?") = 6 Then
               ws.EnableAlarms(True)
               Call profile.ReplaceItemValue("EnableAlarms", "1")
               Call profile.Save(True,True,True)
          Else
               Exit Sub
          End If
     End If

     If ws.DialogBox("(AlarmDialog)", True, True, False, False, False, False, "Set Alarm") = False Then Exit Sub

     If note.tmpAlarmOff(0) = "1" Then
          note.RemoveItem("$Alarm")
          note.RemoveItem("$AlarmOffset")
          note.RemoveItem("$AlarmTime")
     Else
          Call note.ReplaceItemValue("$Alarm", 1)
          AlarmSet = 1
          If note.AppointmentType(0) = "0" Or note.AppointmentType(0) = "3" Then
               Select Case note.tmpBeforeOrAfter(0)
               Case "1"
                    Call note.ReplaceItemValue("$AlarmOffset", Cint(note.tmpAlarmOffset(0)) * -1)
                    Call note.RemoveItem("$AlarmTime")
               Case "2"
                    Call note.ReplaceItemValue("$AlarmOffset", Cint(note.tmpAlarmOffset(0)))
                    Call note.RemoveItem("$AlarmTime")
               Case "3"
                    note.RemoveItem("$AlarmOffset")
                    Set dateitem = note.GetFirstItem("tmpAlarmOnDate")
                    Set timeitem = note.GetFirstItem("tmpAlarmOnTime")
                    Set AlarmTime = New NotesDateTime(dateitem.DateTimeValue.DateOnly & " " & timeitem.DateTimeValue.TimeOnly)
                    Set note.~$AlarmTime = AlarmTime
               End Select
          Else
               note.RemoveItem("$AlarmOffset")
               Set dateitem = note.GetFirstItem("tmpAlarmOnDate")
               Set timeitem = note.GetFirstItem("tmpAlarmOnTime")
               Set AlarmTime = New NotesDateTime(dateitem.DateTimeValue.DateOnly & " " & timeitem.DateTimeValue.TimeOnly)
               Set note.~$AlarmTime = AlarmTime
          End If
     End If

     uidoc.Refresh
End Sub
Send Confirmation
tmpAction
Confirm
    0R1S2S3S
    0R7S12S
AppointmentType
Chair
tmpOwner
RepeatIds
NoticeType
tmpNewDoc
    1S2S3S4R5S6S7S8S10S14S15S16S17S19S
Other...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     uidoc.EditMode = True
     If (ws.DialogBox("(NoticeOptionsDlg)",True,True,,,,,"Options")) Then
'the user selected an action and clicked on OK
'if the user selected Accept, Decline, we can save and exit
          If (note.Comments(0) <> "") Then note.IncludeComment = "1"
          Select Case note.ResponseType(0)
          Case "0"
'this is an acceptance
'this will never get called from the calendar entry form since this is already an acceptance
          Case "1"
'this is a decline
               note.tmpAction = "Decline"
               Call uidoc.Save
               Call uidoc.Close
          Case "2"
'this is a delegate
               note.tmpAction = "Delegate"
               Call uidoc.Save
               Call uidoc.Close
          Case "3"
'this is a counter propose
               note.tmpAction = "CounterPropose"
               Call uidoc.Save
               Call uidoc.Close
          End Select
     End If
End Sub
chair
tmpowner
DoNotProcessh
Broadcast
OrgRepeat
NoticeType
tmpNewDoc
    2S3S5S6S12S13S14S15S16S17S21S22S23S24S25S26S
Cancel Meeting
tmpAction
Cancel
    0R1S2S3S
    0R7S12S
Principal
tmpOwner
RepeatIds
AppointmentType
NoticeType
tmpNewDoc
    1S2R4S5S7S8S12S13S14S15S16S17S18S19S20S21S
Change Status to Accepted...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call ChangeStatus
End Sub
PostedDateh
Principal
tmpOwner
RepeatIds
AppointmentType
NoticeType
tmpNewDoc
    5S6R7S8S10S11S13S17S18S19S20S21S22S23S24S25S26S27S28S
I Can No Longer Attend
tmpAction
Decline
    0R1S2S3S
    0R7S12S|
Principal
tmpOwner
Broadcast
RepeatIds
tmpNewDoc
    1S2S3S4S5S6S8S12S13S
Check Calendar
Calendar
StartDate
    0S0E
StartDate
RepeatIds
NoticeType
    2S3S7S8S9S10S
View Repeat Info'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     If (parentnote Is Nothing) Then
          Msgbox "The parent document cannot be found."
          Exit Sub
     End If
     Call ws.DialogBox("(RepeatInfo)",False,False,True,True,True,True,"Repeat Info",parentnote)
End Sub
OrgRepeat
OrgRepeat
    6S7S12S13S
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Set helpdoc = New NotesDocument(db)
'determine the context the user is in
     If (uidoc.IsNewDoc) Then
          helpdoc.tmpContext = "0"     'user creating brand new document
     Elseif Not(uidoc.IsNewDoc) And (note.AppointmentType(0) <> "3") Then
          helpdoc.tmpContext = "1"     'user viewing existing, non-meeting entry
     Elseif Not(uidoc.IsNewDoc) And (note.AppointmentType(0) = "3") Then
          If  (note.Chair(0) = note.tmpowner(0)) Then
               helpdoc.tmpContext = "2"     'user viewing existing meeting entry when they are the chair
          Else
               helpdoc.tmpContext = "3"     'user viewing existing meeting entry when they are the invitee
          End If
     End If
     Call ws.DialogBox("(CalendarHelp)",True,True,True,True,True,True,"C&S Workflow Help",helpdoc)
End Sub
Categori_zeK
Send Docu_ment
_Remove from Folder...
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
tmpnewdoc
    1S2S
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New GroupK,
NewGroup
    0S0E
tmpnewdoc
    1S2S
(>x    8n
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
CompletedOn
EndDate
CalendarDate_Time___Start
CalendarDate_Time___End
CalendarDates
CalendarDate
RepeatDates
CalendarDateTime
EndDateTime
$NoPurge
StartTime
EndTime
StartEndTime
StartDateTime
$FormPublicAccess
$TITLE
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
Duration
ReminderTime
StartDate
TimeRange
_ViewIcon
$BODY
$ACTIONS
$SCRIPTOBJ_7
$SCRIPTOBJ_8
$SCRIPTOBJ_10
$SCRIPTOBJ_11
$SCRIPTOBJ_13
$SCRIPTOBJ_15
$SCRIPTOBJ_18
$SCRIPTOBJ_19
$SCRIPTOBJ_23
$SCRIPTOBJ_24
$SCRIPTOBJ_25
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "ObjectVariables"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Type NamesTable
Declare Sub Initialize
Declare Function GetLocalNAB() As NotesDatabase
Declare Sub CreateGroupDocument(pCollection As NotesDocumentCollection,pdbNAB As NotesDatabase)
Declare Sub GetDocumentNames(pNote As NotesDocument,pSend As String,pCopy As String,pFrom As String)
Declare Function FindName(pName As String) As Integer
Declare Function GetNameComponents(pName As String, pFullName As String, pDomainName As String)
Declare Sub AddNewName(pCanonicalName As String,pDomainName As String)
Declare Function GetNamesList() As Variant
'++LotusScript Development Environment:2:5:(Declarations):0:10
Type NamesTable
     Common As String
     Canonical As String
     Domain As String
End Type
Dim selecteddocs As NotesDocumentCollection
Dim nabdb As NotesDatabase
Dim GroupMembers() As NamesTable
Dim MemberCounter As Integer
Dim MaxMembers As Integer
Const TABLESIZE = 20
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
     Set session = New NotesSession
     Set ws = New NotesUIWorkspace
     Set nabdb = GetLocalNAB()

     Set selecteddocs = session.CurrentDatabase.UnprocessedDocuments

     If (selecteddocs.Count = 0) Then
          Messagebox "Please select one or more documents before executing this command.",16,"Error"
          Exit Sub
     End If

'if there is a document currently open, and it is a new document, we cannot proceed
     Set uidoc = ws.CurrentDocument
     If Not(uidoc Is Nothing) Then
          If uidoc.IsNewDoc Then
               Messagebox "This action cannot be executed on a new document.",16,"Error"
               Exit Sub
          End If
     End If

     Call CreateGroupDocument(selecteddocs,nabdb)
End Sub
'++LotusScript Development Environment:2:1:GetLocalNAB:1:8
Function GetLocalNAB() As NotesDatabase
 *Given a session object, gets the local NAB for the local desktop
%END REM

     Dim sNamesLine As String
     Dim nPos As Integer


     sNamesLine = session.GetEnvironmentString("names",True)

'make sure this value was found; if not, assume names.nsf
     If (sNamesLine = "") Then
          Set GetLocalNAB = New NotesDatabase("","names.nsf")
     Else
'check to see if multiple NAB's are listed; we use the first one
          nPos = Instr(sNamesLine,",")
          If (nPos > 0) Then sNamesLine = Left$(sNamesLine,nPos-1)

'open the database
          Set GetLocalNAB = New NotesDatabase("",sNamesLine)
     End If
End Function
'++LotusScript Development Environment:2:2:CreateGroupDocument:1:8
Sub CreateGroupDocument(pCollection As NotesDocumentCollection,pdbNAB As NotesDatabase)
 *Given a collection of documents and a NAB database, this routine
  will create a group document in the editor with the
  members item filled in
%END REM
     Dim groupnote As NotesDocument
     Dim mailnote As NotesDocument
     Dim GroupUIDoc As NotesUIDocument
     Dim sFromItem As String

     Redim GroupMembers(TABLESIZE)
     MaxMembers = TABLESIZE
     MemberCounter = 0

     Set mailnote = pCollection.GetFirstDocument
     While Not(mailnote Is Nothing)
          Select Case mailnote.Form(0)
          Case "Memo","Reply"
               If mailnote.HasItem("Principal") Then
                    sFromItem = "Principal"
               Else
                    sFromItem = "From"
               End If
               Call GetDocumentNames(mailnote,"SendTo","CopyTo",sFromItem)
          Case "Appointment","Notice"
               If mailnote.HasItem("Principal") Then
                    sFromItem = "Principal"
               Else
                    sFromItem = "Chair"
               End If
               Call GetDocumentNames(mailnote,"RequiredAttendees","OptionalAttendees",sFromItem)
          Case Else
'not sure what we are dealing with, so assume mail-related item names
               If mailnote.HasItem("Principal") Then
                    sFromItem = "Principal"
               Else
                    sFromItem = "From"
               End If
               Call GetDocumentNames(mailnote,"SendTo","CopyTo",sFromItem)
          End Select

'get the next document
          Set mailnote = pCollection.GetNextDocument(mailnote)
     Wend

'now that we have gone through all documents, create the group document
     Set groupnote = New NotesDocument(pdbNAB)
     groupnote.Form = "Group"
     groupnote.Type = "Group"
     groupnote.DocumentAccess = session.UserName
'now, iterate through the list of names
     groupnote.tmpMembers = GetNamesList()
     groupnote.Members = Evaluate(|@Trim(@Unique(tmpMembers))|,groupnote)
     groupnote.RemoveItem "tmpMembers"
     Call ws.EditDocument(True,groupnote)
End Sub
'++LotusScript Development Environment:2:2:GetDocumentNames:1:8
Sub GetDocumentNames(pNote As NotesDocument,pSend As String,pCopy As String,pFrom As String)
 *Given a document, retrieve the item names given
 *Inputs
  pSend -> item name of SendTo item
  pCopy -> item name of CopyTo item
  pFrom -> item name of From item
 *Return
  array of names
%END REM

     Dim vSendTo As Variant
     Dim vCopyTo As Variant
     Dim vFrom As Variant
     Dim CanonicalName As String
     Dim DomainName As String


     vSendTo = pNote.GetItemValue(pSend)
     vCopyTo = pNote.GetItemValue(pCopy)
     vFrom = pNote.GetItemValue(pFrom)

     Forall names In vSendTo
          If (names <> "") Then
'first, try to locate this person in the namestable
               Call GetNameComponents(Cstr(names),CanonicalName,DomainName)
               If (FindName(CanonicalName) = -1) Then
                    Call AddNewName(CanonicalName,DomainName)
               End If
          End If
     End Forall

     Forall names In vCopyTo
          If (names <> "") Then
'first, try to locate this person in the namestable
               Call GetNameComponents(Cstr(names),CanonicalName,DomainName)
               If (FindName(CanonicalName) = -1) Then
                    Call AddNewName(CanonicalName,DomainName)
               End If
          End If
     End Forall

'see if the from value already exists
     If (FindName(vFrom(0)) = -1) Then
          If (pNote.HasItem("FromDomain")) Then
               Call AddNewName(vFrom(0),pNote.FromDomain(0))
          Else
               Call AddnewName(vFrom(0),"")
          End If
     End If

End Sub
'++LotusScript Development Environment:2:1:FindName:1:8
Function FindName(pName As String) As Integer
     Dim key As New NotesName(pName)
     Dim x As Integer
     Dim namUser As New NotesName(session.UserName)

     For x = 0 To (MemberCounter - 1)
'do a canonical name comparison
          If Lcase(key.Canonical) = Lcase(GroupMembers(x).Canonical) Or Lcase(namUser.Canonical) = Lcase(key.Canonical) Then
               FindInvitee = x
               Exit Function
'do a common name comparison
          Elseif Lcase(key.Common) = Lcase(GroupMembers(x).Common) Or Lcase(namUser.Common) = Lcase(key.Common) Then
               FindInvitee = x
               Exit Function
          End If
     Next

     FindName = -1
End Function
'++LotusScript Development Environment:2:1:GetNameComponents:1:8
Function GetNameComponents(pName As String, pFullName As String, pDomainName As String)

     Dim pos As Integer

     pos = Instr(pName,"@")

     If(pos > 0) Then
          Set nam = New NotesName(Left$(pName,pos-1))
          pFullName = nam.Canonical
          pDomainName = Right$(pName,Len(pName)-pos)
     Else
          Set nam = New NotesName(pName)
          pFullName = nam.Canonical
          pDomainName = ""
     End If
End Function
'++LotusScript Development Environment:2:2:AddNewName:1:8
Sub AddNewName(pCanonicalName As String,pDomainName As String)

'see if we need to increase the table
     If (MaxMembers = MemberCounter) Then
          MaxMembers = MaxMembers + TABLESIZE
          Redim Preserve GroupMembers(MaxMembers)
     End If
     Set nam = New NotesName(pCanonicalName)
     GroupMembers(MemberCounter).Common = nam.Common
     GroupMembers(MemberCounter).Canonical = nam.Canonical
     GroupMembers(MemberCounter).Domain = pDomainName
     MemberCounter = MemberCounter + 1
End Sub
'++LotusScript Development Environment:2:1:GetNamesList:1:8
Function GetNamesList() As Variant
     Dim vRetNames() As Variant
     Dim x As Integer

     Redim vRetNames(MemberCounter)

     For x = 0 To (MemberCounter-1)
          If (GroupMembers(x).Domain <> "") Then
               vRetNames(x) = GroupMembers(x).Canonical & "@" & GroupMembers(x).Domain
          Else
               vRetNames(x) = GroupMembers(x).Canonical
          End If
     Next
     GetNamesList = vRetNames
End Function
    +     $
tmpMembers
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
(OLEMailFields)CUA3
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################################
ReplyReplyw
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################
Reply With HistoryReplyw
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################
29FB8414250BFCF038F51072FC347194AF5CB9E208931A2E889B51112269D913
_Document Memo$DocMemoWord.Document$Word MemoWordPro.Document$Word Pro MemoAlternateMemow
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
MemoDocumentMemow40FE120068FD550064FF1200E3104000
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes40FE120068FD550064FF1200E310400040FE120068FD550064FF1200E3104000CN=Lotus Notes Template Development/O=Lotus Notes########################
(Delivery Report)Delivery Report
CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
(Return Receipt)Return Receipt
CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################
(ReturnNonReceipt)ReturnNonReceipt
CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
(Trace Report)Trace ReportCD
CN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################
##########################################################
##########################################################
(OLEMailFields)
SendTo
CopyTo
BlindCopyTo
Subject
    Bcc:
    Subject:
    0S0E
    0S0E
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
=Gf5:J{
$TITLE
$INFO
$$Script_O
$$ScriptName
$BODY
Times New Roman
VersionOpt|
    6S7S9S14S
$VersionOpt
    0R1S2S3S
SavedOnce
    0R1S2S3S
PostedDate(
    0R1S2S3S
DeliveredDate
    0R1S2S3S
$AutoEditMode
    0R1S2S3S
MailSaveOptions
    0R1S2S3S
VersionOpt
    0R4S
InheritedBody
New Reply
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "EmailProcessing"
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
 Reply'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Querysave From Source Call Querysave
     On Event Queryclose From Source Call Queryclose
     On Event Postmodechange From Source Call Postmodechange
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)

     Set ws = New NotesUIWorkSpace
     Set uidoc = source

     Call EmailOpen

End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)

     Call EmailSave(Continue)

End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)

     Call EmailClose(Continue)

End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)

     Call EmailModeChange

End Sub
    Always hidden:
SendTo
CopyTo
    1S2S
InheritedSendTo
ReplyTo
InheritedReplyTo
Principal
Principal
Principal
Fromh
    1S2S8S9S10S11S13S15S20S22S
FromDomainh
FromDomain"
    0R7S8S9S10S11S13SInheritedFrom
FromDomain
InheritedFromDomain
Principal
CalendarProfile
Owner
    1S2S3S7S
FromPerson memo is from.
DefaultLogo
StdNotesLtrGateway
    4S9S13S16S18SLogo
    0S0E
    0S0E
Encrypt
    0S0E
DefaultMailSaveOptions
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
$HideMailHeader
    0S0E
    From:
Principal
Principal
    1S2S5S6S8S10S
    0R1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
    0RR1S2S9S11S15S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Preview
     on
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDate_PreviewTime/date memo was created or mailed.
$HideMailHeader
StdNotesLtr16
    7S9S10S11S13S15S
tmpDate
$HideMailHeader
    4S5S6S8S10S11S
    From:
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogo
     on
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDate_NoLogoTime/date memo was created or mailed.
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Sent by:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
SendTo
CopyTo
  cc:
CopyTo
    1S8S13S14S2E17S18S21S28S31S
MailAddress
InheritedReplyToh
InheritedReplyTo
InheritedReplyTo
InheritedFrom
    1S2S8S9S10S11S13S15S
MailAddress
    0RR
SendTo}
    0S0E
SendTo^
No names found to send mail.{
    1S6S7S8S9S11S16S
SendToList of primary people to send memo.
CopyTo}
    0S0E
CopyToList of people to send a copy of the memo.
DeliveredDate
BlindCopyTo
(bcc:
BlindCopyTo
    4S5S6S7S8S9S10S11S13S14S15S19S21S22S24StmpBlindCopyTo
    bcc:
BlindCopyTo
    0S0E
BlindCopyToList of undisclosed people to send copies of memo.
    Subject:
ReplyText
MailStEd|
    1S2S
Prefix
ReplyText
    0R1S2S8S9S11S13S
Prefix
ReplyText
Subject
Topic
Subject
    0R1S2S5S6S8S10S11S12S14S16S
Prefix
Subj"
    0R10S12S16S17S19S21S22S23S
Subject
    0S0E
SubjectSubject of memo.
    Subject:
Subject
tmpDisplaySubjectSubject of memo.
    0S0E
tmpDisplayLink
$HideMailHeader
Moods
PostedDate
SenderTag
Moods
    7S9S11S13S14S15S16S17S19S20S21S22S25S27S
Edit Document
ForwardK
    0S0E
New Memo.
    0S0E
Delete
    0S0E
_Move To Folder...
Delivery Information...Kz
DeliveryInfo
Delivery Information
    4S5S6S7S8S9S10S12S
_Forward
Reply
Reply
    0S0E
Reply With History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Address...
    0S0E
PostedDateh
    5S6S7S8S
Close
    0S0E
PostedDateY
    0S0E
Reply To All
Owner
CalendarProfile
Owner
    1S2S6S
CanonicalName
Owner
Owner
    0R1S2S6S9S10S12S14S
Names
InheritedSendTo
    0R1S2S
Try 4 different ways of removing the current sender from the new recipient list
    0RR1S
Names1 compares the original names list with the canonical name plus the domain name and if found replaces with a null - works
    0R1S
Names1
Names
CanonicalName
Names
CanonicalName
    0R1S2S6S7S8S15S21S
Names 2 compares just the common name of the current user plus the domain against the result of Names 1 and replaces with null - appears to work
    0RR1S
Names2
Names1
CanonicalName
Names1b
CanonicalName
    0R1S2S6S10S12S13S20S26S31S
Names3 compares the canonical names against the Names 2 list and replaces with a null.
    0RR1S
Names3
Names2
CanonicalName
Names 4 compares the common name only - no domain and if found replaces with null.  Also makes sure there are no duplicates or extra spaces.
    0RR1S
Names4
Names3
CanonicalName
    0R1S2S10S14S17S
Names4
    0R3S4S6S11S
Append the InheritedFromDomain to all entries which are left and let the @OptimizeMailAddress take care of duplicates.  This ensures that mail will route the way that the message came in which lessens the chance of delivery failures...
    0RR1S
Names4a
Names4
InheritedFromDomain
    0R1S2S
Look for all addresses whose last domain is the same as the sender's domain - tack on the whole FromDomain
    0RR1S
Names5
Names4a
Names4a
InheritedFromDomain
Names4a
InheritedFromDomain
    0R1S2S6S10S12S13S14S15S21S25S29S31S32S33S34S
Find all the addresses without a domain and attach FromDomain
    0RR1S
Names6
Names5
Names5
Names5
    0R1S2S6S10S12S13S14S15S19S22S
Names7
Names5
Names6
Names6
InheritedFromDomain
    0R1S2S6S8S9S10S11S12S
Find everyone whose domain is the same as yours and strip it off
    0RR1S
Names8
Names7
Names7
    0R1S2S8S9S11S13S17S18S19S21S
Names8a
Names8
Names8
    0R1S2S8S9S11S13S17S18S19S24S
Names8b
Names8a
Names8a
    0R1S2S8S9S11S13S17S18S19S24S
Names8c
Names8b
Names8b
    0R1S2S8S9S11S13S17S18S19S24S
CopyTo
CopyTo
InheritedFromDomain
Names5
Names5
Names8c
    0R1S2S3S10S11S14S15S16S17S18S19S21S23S
PostedDateh
    0S0E
Save As Draft
MailOptions
    1S2S3S
SaveOptions
    0R1S2S3S
PostedDateh
    0S0E
Save and File
    7S9S
tmpAction
SaveAndFile
    0R1S2S3S
IsMailStationeryh
PostedDateY
PostedDateh
    4S5S9S10S16S17S18S19S
PromptValue
DefaultMailSaveOptions
Save when sent
Do you wish to save a copy of this Memo?
DefaultMailSaveOptions
    1S2S5S6S8S14S17S
SaveOptions
PromptValue
SaveOptions
PromptValue
    0RR1S2S5S6S9S14S
tmpAction
DefaultMailSaveOptions
Mailing
    0RR1S2S3S6S7S9S11S
MailOptions
    0R1S2S3S
    0R7S9S
tmpAction
SaveOptions
SendAndFile
    0RR1S2S3S6S7S9S11S
    0R7S9S
PostedDateh
    5S6S7S8S
Send And File...
tmpAction
DefaultMailSaveOptions
Mailing
    1S2S3S6S7S9S11S
MailOptions
    0R1S2S3S
    0RR7S9S
tmpAction
SendAndFile
    0RR1S2S3S
    0R7S9S
    0R7S9S
PostedDateh
    5S6S7S8S
Delivery Options...K
DeliveryOptions
Delivery Options
    4S8S
_ViewIcon
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
    0RR1S2S3S5RS3E6S7S8S9S11S13RS3E14S15S17S19RS3E20S21S23S25RS3E26S27S29S31RS3E32S33S35S37RS3E38S39S41S43RS3E44S45S47S49RS3E50S51S53S55RS3E56S57S59S61RS3E62S63S65S67RS3E68S69S71S73RS3E8
PostedDateh
    5S6S7S8S
Special Options...
ReplyDate
ReplyDate
    1S2S3S
ReplyTo
ReplyTo
    0R1S2S3S
(Advanced Options)
Special Options
    0R6S10S13S15S
tmpDisplayReplyInfo
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    0R1S2S3S4S5S8S9S11S13S14S15S17S18S21S22S24S26S27S28S
DueDateTime
ReplyDate
    0R1S2S3S
PostedDateh
    5S6S7S8S10S11S15S16S
Save As Stationery...
tmpAction
SaveAsStationery
    1S2S3S
IsMailStationeryh
    0S0E
_Remove From Folder...
Categori_zeK
SSend
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
tmpnewdoc
    1S2S
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New GroupK,
NewGroup
    0S0E
tmpnewdoc
    1S2S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
_>shv
$$FormPostOpenAction
ExpireDate
ReplyDate
$TypeIcon
ReplyNumber
ComposedDate
$TITLE
$AUTOLAUNCH
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$ACTIONS
$SCRIPTOBJ_22
$SCRIPTOBJ_23
$SCRIPTOBJ_24
Times New Roman
VersionOpt|
    6S7S9S14S
$VersionOpt
    0R1S2S3S
SavedOnce
    0R1S2S3S
PostedDate(
    0R1S2S3S
DeliveredDate
    0R1S2S3S
$AutoEditMode
    0R1S2S3S
MailSaveOptions
    0R1S2S3S
VersionOpt
    0R4S
New Reply
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "EmailProcessing"
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
 Reply'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Postmodechange(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Queryclose From Source Call Queryclose
     On Event Postopen From Source Call Postopen
     On Event Postmodechange From Source Call Postmodechange
     On Event Querysave From Source Call Querysave
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)

     Call EmailClose(Continue)

End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)

     Set ws = New NotesUIWorkSpace
     Set uidoc = source

     Call EmailOpen

End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)

     Call EmailModeChange

End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)

     Call EmailSave(Continue)

End Sub
    Always hidden:
SendTo
CopyTo
    1S2S
InheritedSendTo
ReplyTo
InheritedReplyTo
Principal
Principal
Principal
Fromh
    1S2S8S9S10S11S13S15S20S22S
FromDomainh
FromDomain"
    0R7S8S9S10S11S13SInheritedFrom
FromDomain
InheritedFromDomain
Principal
CalendarProfile
Owner
    1S2S3S7S
FromPerson memo is from.
DefaultLogo
StdNotesLtrGateway
    4S9S13S16S18SLogo
    0S0E
    0S0E
Encrypt
    0S0E
DefaultMailSaveOptions
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
$HideMailHeader
    0S0E
    From:
Principal
Principal
    1S2S5S6S8S10S
    0R1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
    0RR1S2S9S11S15S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Preview
     on
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDate_PreviewTime/date memo was created or mailed.
$HideMailHeader
StdNotesLtr16
    7S9S10S11S13S15S
tmpDate
$HideMailHeader
    4S5S6S8S10S11S
    From:
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogo
     on
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDate_NoLogoTime/date memo was created or mailed.
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Sent by:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
SendTo
CopyTo
  cc:
CopyTo
    1S8S13S14S2E17S18S21S28S31S
MailAddress
InheritedReplyToh
InheritedReplyTo
InheritedReplyTo
InheritedFrom
    1S2S8S9S10S11S13S15S
MailAddress
    0RR
SendTo}
    0S0E
SendTo^
No names found to send mail.{
    1S6S7S8S9S11S16S
SendToList of primary people to send memo.
CopyTo}
    0S0E
CopyToList of people to send a copy of the memo.
DeliveredDate
BlindCopyTo
(bcc:
BlindCopyTo
    4S5S6S7S8S9S10S11S13S14S15S19S21S22S24StmpBlindCopyTo
    bcc:
BlindCopyTo
    0S0E
BlindCopyToList of undisclosed people to send copies of memo.
    Subject:
Subject
Topic
Subject
    1S2S5S6S8S10S
Subj"
    0R10S12S16S17S19S21S22S23S
Subject
    0S0E
SubjectSubject of memo.
    Subject:
Subject
tmpDisplaySubjectSubject of memo.
    0S0E
tmpDisplayLink
$HideMailHeader
Moods
PostedDate
SenderTag
Moods
    7S9S11S13S14S15S16S17S19S20S21S22S25S27S
Edit Document
ForwardK
    0S0E
New Memo.
    0S0E
Delete
    0S0E
_Move To Folder...
Delivery Information...Kz
DeliveryInfo
Delivery Information
    4S5S6S7S8S9S10S12S
_Forward
Reply
Reply
    0S0E
Reply With History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Address...
    0S0E
PostedDateh
    5S6S7S8S
Close
    0S0E
PostedDateY
    0S0E
Reply To All
Owner
CalendarProfile
Owner
    1S2S6S
CanonicalName
Owner
Owner
    0R1S2S6S9S10S12S14S
Names
InheritedSendTo
    0R1S2S
Try 4 different ways of removing the current sender from the new recipient list
    0RR1S
Names1 compares the original names list with the canonical name plus the domain name and if found replaces with a null - works
    0R1S
Names1
Names
CanonicalName
Names
CanonicalName
    0R1S2S6S7S8S15S21S
Names 2 compares just the common name of the current user plus the domain against the result of Names 1 and replaces with null - appears to work
    0RR1S
Names2
Names1
CanonicalName
Names1b
CanonicalName
    0R1S2S6S10S12S13S20S26S31S
Names3 compares the canonical names against the Names 2 list and replaces with a null.
    0RR1S
Names3
Names2
CanonicalName
Names 4 compares the common name only - no domain and if found replaces with null.  Also makes sure there are no duplicates or extra spaces.
    0RR1S
Names4
Names3
CanonicalName
    0R1S2S10S14S17S
Names4
    0R3S4S6S11S
Append the InheritedFromDomain to all entries which are left and let the @OptimizeMailAddress take care of duplicates.  This ensures that mail will route the way that the message came in which lessens the chance of delivery failures...
    0RR1S
Names4a
Names4
InheritedFromDomain
    0R1S2S
Look for all addresses whose last domain is the same as the sender's domain - tack on the whole FromDomain
    0RR1S
Names5
Names4a
Names4a
InheritedFromDomain
Names4a
InheritedFromDomain
    0R1S2S6S10S12S13S14S15S21S25S29S31S32S33S34S
Find all the addresses without a domain and attach FromDomain
    0RR1S
Names6
Names5
Names5
Names5
    0R1S2S6S10S12S13S14S15S19S22S
Names7
Names5
Names6
Names6
InheritedFromDomain
    0R1S2S6S8S9S10S11S12S
Find everyone whose domain is the same as yours and strip it off
    0RR1S
Names8
Names7
Names7
    0R1S2S8S9S11S13S17S18S19S21S
Names8a
Names8
Names8
    0R1S2S8S9S11S13S17S18S19S24S
Names8b
Names8a
Names8a
    0R1S2S8S9S11S13S17S18S19S24S
Names8c
Names8b
Names8b
    0R1S2S8S9S11S13S17S18S19S24S
CopyTo
CopyTo
InheritedFromDomain
Names5
Names5
Names8c
    0R1S2S3S10S11S14S15S16S17S18S19S21S23S
PostedDateh
    0S0E
Save As Draft
MailOptions
    1S2S3S
SaveOptions
    0R1S2S3S
PostedDateh
    0S0E
Save and File
    7S9S
tmpAction
SaveAndFile
    0R1S2S3S
IsMailStationeryh
PostedDateY
PostedDateh
    4S5S9S10S16S17S18S19S
PromptValue
DefaultMailSaveOptions
Save when sent
Do you wish to save a copy of this Memo?
DefaultMailSaveOptions
    1S2S5S6S8S14S17S
SaveOptions
PromptValue
SaveOptions
PromptValue
    0RR1S2S5S6S9S14S
tmpAction
DefaultMailSaveOptions
Mailing
    0RR1S2S3S6S7S9S11S
MailOptions
    0R1S2S3S
    0R7S9S
tmpAction
SaveOptions
SendAndFile
    0RR1S2S3S6S7S9S11S
    0R7S9S
PostedDateh
    5S6S7S8S
Send And File...
tmpAction
DefaultMailSaveOptions
Mailing
    1S2S3S6S7S9S11S
MailOptions
    0R1S2S3S
    0RR7S9S
tmpAction
SendAndFile
    0RR1S2S3S
    0R7S9S
    0R7S9S
PostedDateh
    5S6S7S8S
Delivery Options...K
DeliveryOptions
Delivery Options
    4S8S
_ViewIcon
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
    0RR1S2S3S5RS3E6S7S8S9S11S13RS3E14S15S17S19RS3E20S21S23S25RS3E26S27S29S31RS3E32S33S35S37RS3E38S39S41S43RS3E44S45S47S49RS3E50S51S53S55RS3E56S57S59S61RS3E62S63S65S67RS3E68S69S71S73RS3E8
PostedDateh
    5S6S7S8S
Special Options...
ReplyDate
ReplyDate
    1S2S3S
ReplyTo
ReplyTo
    0R1S2S3S
(Advanced Options)
Special Options
    0R6S10S13S15S
tmpDisplayReplyInfo
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    0R1S2S3S4S5S8S9S11S13S14S15S17S18S21S22S24S26S27S28S
DueDateTime
ReplyDate
    0R1S2S3S
PostedDateh
    5S6S7S8S10S11S15S16S
Save As Stationery...
tmpAction
SaveAsStationery
    1S2S3S
IsMailStationeryh
    0S0E
_Remove From Folder...
Categori_zeK
SSend
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
tmpnewdoc
    1S2S
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New GroupK,
NewGroup
    0S0E
tmpnewdoc
    1S2S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
}sk5VN1
$$FormPostOpenAction
ExpireDate
ReplyDate
$TypeIcon
ReplyNumber
ComposedDate
$TITLE
$AUTOLAUNCH
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$ACTIONS
$SCRIPTOBJ_22
$SCRIPTOBJ_23
$SCRIPTOBJ_24
Times New Roman
VersionOpt|
    6S7S9S14S
$VersionOpt
    0R1S2S3S
SavedOnce
    0R1S2S3S
PostedDate(
    0R1S2S3S
DeliveredDate
    0R1S2S3S
$AutoEditMode
    0R1S2S3S
MailSaveOptions
    0R1S2S3S
VersionOpt
    0R4S
New Memo
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "EmailProcessing"
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
 AlternateMemo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Querysave From Source Call Querysave
     On Event Queryclose From Source Call Queryclose
     On Event Postmodechange From Source Call Postmodechange
     On Event Postopen From Source Call Postopen
     On Event Querymodechange From Source Call Querymodechange
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
     If Not(source.InPreviewPane) Then
          Call EmailSave(Continue)
     End If
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
     If Not(source.InPreviewPane) Then
          Call EmailClose(Continue)
     End If
End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)

     Call EmailModeChange

End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
     Set ws = New NotesUIWorkSpace
     Set uidoc = source

     If Not(source.InPreviewPane) Then
          Call EmailOpen
          If (note.tmpUseOLE(0) = "1") Then CreateOLEObject
     End If
End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
     If (source.InPreviewPane) Then
          Continue = False
     End If
End Sub
    Always Hidden:
Principal
CalendarProfile
Owner
    1S2S3S7S
FromPerson memo is from.
DefaultLogo
StdNotesLtrGateway
    4S9S13S16S18SLogo
    0S0E
    0S0E
Encrypt
MailSaveOptions
    1S2S3S
MailSaveOptions
DefaultMailSaveOptions
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
MailEditor
AltEditorProgID
    1S2S
OriginalEditorh
MailEditor
OriginalEditor
MailEditor
    0R7S10S11S13S14S15S18S19S20S
tmpUseOLE
OLEBody
$OLEObjField
$OLEObjRichTextField
AltEditorProgID
    0S0E
$OLEObjProgID
$HideMailHeader
    0S0E
    From:
Principal
Principal
    1S2S5S6S8S10S
    0R1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
    0RR1S2S9S11S15S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Preview
     on
PostedDateh
PostedDate
    7S9S
tmpDisplayDate_PreviewTime/date memo was created or mailed.
tmpDate
$HideMailHeader
    4S5S6S8S10S11S
    From:
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogo
     on
PostedDateh
PostedDate
    7S9S
tmpDisplayDate_NoLogoTime/date memo was created or mailed.
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Sent by:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
    To:
SendTo}
    0S0E
SendTo^
No names found to send mail.{
    1S6S7S8S9S11S16S
SendToList of primary people to send memo.
    cc:
CopyTo}
    0S0E
CopyToList of people to send a copy of the memo.
DeliveredDate
BlindCopyTo
(bcc:
BlindCopyTo
    3S4S5S6S7S8S10S11S12S16S18S19S21StmpDisplayBlindCopyTo
    bcc:
BlindCopyTo
    0S0E
BlindCopyToList of undisclosed people to send copies of memo.
    Subject:
PhoneCaller
Phone Call:
PhoneCaller
Subject
    7S8S9S11SSubjectSubject of memo.
tmpUseOLE
    1S2S
OLEBody
tmpUseOLE
    1S2S
Edit Document
ForwardK
    0S0E
New Memo.
    0S0E
Delete
    0S0E
_Move To Folder...
Delivery Information...Kz
DeliveryInfo
Delivery Information
    4S5S6S7S8S9S10S12S
_Forward
Reply
Reply
    0S0E
Reply With History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Close
    0S0E
Envelope...K@
(OLEMailFields)
    0S0E
PostedDateh
tmpUseOLE
    5S6S7S8S11S12S13S
Address...
    0S0E
PostedDateh
    5S6S7S8S
Save As Draft
tmpAction
SaveAsDraft
    1S2S3S
IsMailStationeryh
PostedDateh
    4S5S
Save and File
    7S9S
tmpAction
SaveAndFile
    0R1S2S3S
IsMailStationeryh
PostedDateY
PostedDateh
    4S5S9S10S16S17S18S19S
PromptValue
DefaultMailSaveOptions
Save when sent
Do you wish to save a copy of this Memo?
DefaultMailSaveOptions
    1S2S5S6S8S14S17S
SaveOptions
PromptValue
SaveOptions
PromptValue
    0RR1S2S5S6S9S14S
SendTo^
CopyTo^
BlindCopyTo
(OLEMailFields)
    0RR6S7S8S9S13S14S15S16S20S21S22S23S36S37S42S44S
tmpAction
DefaultMailSaveOptions
Mailing
    0RR1S2S3S6S7S9S11S
MailOptions
    0R1S2S3S
    0R7S9S
tmpAction
SaveOptions
SendAndFile
    0RR1S2S3S6S7S9S11S
    0R7S9S
PostedDateh
IsMailStationeryh
    5S6S7S8S10S11S
Send And File...p
tmpAction
DefaultMailSaveOptions
Mailing
    1S2S3S6S7S9S11S
MailOptions
    0R1S2S3S
SendTo^
CopyTo^
BlindCopyTo
(OLEMailFields)
    0RR6S7S8S9S13S14S15S16S20S21S22S23S36S37S42S44S
    0RR7S9S
tmpAction
SendAndFile
    0RR1S2S3S
    0R7S9S
    0R7S9S
PostedDateh
IsMailStationeryh
    5S6S7S8S10S11S
Delivery Options...K
DeliveryOptions
Delivery Options
    4S8S
_ViewIcon
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
    0RR1S2S3S5RS3E6S7S8S9S11S13RS3E14S15S17S19RS3E20S21S23S25RS3E26S27S29S31RS3E32S33S35S37RS3E38S39S41S43RS3E44S45S47S49RS3E50S51S53S55RS3E56S57S59S61RS3E62S63S65S67RS3E68S69S71S73RS3E8
PostedDateh
    5S6S7S8S
Special Options...6
ReplyDate
ReplyDate
    1S2S3S
ReplyTo
ReplyTo
    0R1S2S3S
(Advanced Options)
Special Options
    0R6S10S13S15S
tmpDisplayReplyInfo
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    0R1S2S3S4S5S8S9S11S13S14S15S17S18S21S22S24S26S27S28S
DueDateTime
ReplyDate
ReplyDate
    0R1S2S3S6S7S9S11S
PostedDateh
    5S6S7S8S
Save As Stationery...
tmpAction
SaveAsStationery
    1S2S3S
IsMailStationeryh
    0S0E
_Remove From Folder...
Categori_zeK
SSend
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
tmpnewdoc
    1S2S
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New GroupK,
NewGroup
    0S0E
tmpnewdoc
    1S2S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$$FormPostOpenAction
$TypeIcon
ExpireDate
ReplyDate
ComposedDate
$TITLE
$INFO
$WINDOWTITLE
$Script
$$ScriptName
$$FormScript
$BODY
$ACTIONS
Times New Roman
VersionOpt|
    6S7S9S14S
$VersionOpt
    0R1S2S3S
SavedOnce
    0R1S2S3S
PostedDate(
    0R1S2S3S
DeliveredDate
    0R1S2S3S
$AutoEditMode
    0R1S2S3S
MailSaveOptions
    0R1S2S3S
VersionOpt
    0R4S
New Memo
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "EmailProcessing"
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
 Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Querysave From Source Call Querysave
     On Event Queryclose From Source Call Queryclose
     On Event Postmodechange From Source Call Postmodechange
     On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)

     Call EmailSave(Continue)

End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)

     Call EmailClose(Continue)

End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)

     Call EmailModeChange

End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)

     Set ws = New NotesUIWorkSpace
     Set uidoc = source

     Call EmailOpen

End Sub
    Always Hidden:
Principal
CalendarProfile
Owner
    1S2S3S7S
FromPerson memo is from.
DefaultLogo
StdNotesLtrGateway
    4S9S13S16S18SLogo
    0S0E
    0S0E
Encrypt
MailSaveOptions
    1S2S3S
MailSaveOptions
DefaultMailSaveOptions
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
$HideMailHeader
    0S0E
    From:
Principal
Principal
    1S2S5S6S8S10S
    0R1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
    0RR1S2S9S11S15S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Preview
     on
PostedDateh
PostedDate
    7S9S
tmpDisplayDate_PreviewTime/date memo was created or mailed.
$HideMailHeader
StdNotesLtr16
    7S9S10S11S13S15S
tmpDate
$HideMailHeader
    4S5S6S8S10S11S
    From:
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogo
     on
PostedDateh
PostedDate
    7S9S
tmpDisplayDate_NoLogoTime/date memo was created or mailed.
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Sent by:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
SendTo
CopyTo
  cc:
CopyTo
    1S2S8S13S14S2E17S18S21S22S28S31S
    To:
SendTo}
    0S0E
SendTo^
No names found to send mail.{
    1S6S7S8S9S11S16S
SendToList of primary people to send memo.
    cc:
CopyTo}
    0S0E
CopyToList of people to send a copy of the memo.
DeliveredDate
BlindCopyTo
(bcc:
BlindCopyTo
    3S4S5S6S7S8S10S11S12S16S18S19S21StmpDisplayBlindCopyTo
    bcc:
BlindCopyTo
    0S0E
BlindCopyToList of undisclosed people to send copies of memo.
    Subject:
PhoneCaller
Phone Call:
PhoneCaller
Subject
    7S8S9S11SSubjectSubject of memo.
$HideMailHeader
PostedDate
SenderTag
Moods
    7S9S10S11S12S13S15S16S17S18S21S23S
Edit Document
ForwardK
    0S0E
New Memo.
    0S0E
Delete
    0S0E
_Move To Folder...
Delivery Information...Kz
DeliveryInfo
Delivery Information
    4S5S6S7S8S9S10S12S
_Forward
Reply
Reply
    0S0E
Reply With History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Address...
    0S0E
PostedDateh
    5S6S7S8S
Close
    0S0E
IsMailStationeryh
PostedDateh
    6S7S
Save As Draft
tmpAction
SaveAsDraft
    1S2S3S
IsMailStationeryh
PostedDateh
    4S5S
Save and File
    7S9S
tmpAction
SaveAndFile
    0R1S2S3S
IsMailStationeryh
PostedDateY
PostedDateh
    4S5S9S10S16S17S18S19S
PromptValue
DefaultMailSaveOptions
Save when sent
Do you wish to save a copy of this Memo?
DefaultMailSaveOptions
    1S2S5S6S8S14S17S
SaveOptions
PromptValue
SaveOptions
PromptValue
    0RR1S2S5S6S9S14S
tmpAction
DefaultMailSaveOptions
Mailing
    0RR1S2S3S6S7S9S11S
MailOptions
    0R1S2S3S
    0R7S9S
tmpAction
SaveOptions
SendAndFile
    0RR1S2S3S6S7S9S11S
    0R7S9S
PostedDateh
IsMailStationeryh
    5S6S7S8S10S11S
Send And File...
tmpAction
DefaultMailSaveOptions
Mailing
    1S2S3S6S7S9S11S
MailOptions
    0R1S2S3S
    0RR7S9S
tmpAction
SendAndFile
    0RR1S2S3S
    0R7S9S
    0R7S9S
PostedDateh
IsMailStationeryh
    5S6S7S8S10S11S
Delivery Options...K
DeliveryOptions
Delivery Options
    4S8S
_ViewIcon
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
    0RR1S2S3S5RS3E6S7S8S9S11S13RS3E14S15S17S19RS3E20S21S23S25RS3E26S27S29S31RS3E32S33S35S37RS3E38S39S41S43RS3E44S45S47S49RS3E50S51S53S55RS3E56S57S59S61RS3E62S63S65S67RS3E68S69S71S73RS3E8
PostedDateh
    5S6S7S8S
Special Options...6
ReplyDate
ReplyDate
    1S2S3S
ReplyTo
ReplyTo
    0R1S2S3S
(Advanced Options)
Special Options
    0R6S10S13S15S
tmpDisplayReplyInfo
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    0R1S2S3S4S5S8S9S11S13S14S15S17S18S21S22S24S26S27S28S
DueDateTime
ReplyDate
ReplyDate
    0R1S2S3S6S7S9S11S
PostedDateh
    5S6S7S8S10S11S15S16S
Save As Stationery...
tmpAction
SaveAsStationery
    1S2S3S
IsMailStationeryh
    0S0E
_Remove From Folder...
Categori_zeK
SSend
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
tmpnewdoc
    1S2S
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New GroupK,
NewGroup
    0S0E
tmpnewdoc
    1S2S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$$FormPostOpenAction
$TypeIcon
ExpireDate
ReplyDate
ComposedDate
$TITLE
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$ACTIONS
$SCRIPTOBJ_21
$SCRIPTOBJ_22
$SCRIPTOBJ_23
*** Message Successfully Delivered ***
 Delivery Report
Delivery Confirmation Report
    Your document:
Subject
Subject
    was delivered to:
IntendedRecipient
IntendedRecipient
DeliveryDate
BodyBody of memo.
    Always Hidden:
Path_Info
Path_Info
Categori_ze
Close
    0S0E
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder...
Trash
    1S2S8S12S14S
/wCommand?OpenAgent&ToTrash=
&From="
    0R1S2S3S4S11S13S15S16S
Path_Info
Path_Info
    0R1S2S6S10S11S15S
view1
    0R1S2S3S10S14S18S21S
view2
view1
view1
view1
    0R1S2S3S10S14S18S21S
path"
view2
    0RR3S4S5S6S7S8S
    1S2S8S12S14S
/wFolders?OpenForm&UNID=
&View="
    0R1S2S3S4S11S13S15S16S
Path_Info
Path_Info
    0R1S2S6S10S11S15S
view1
    0R1S2S3S10S14S18S21S
view2
view1
view1
view1
    0R1S2S3S10S14S18S21S
path"
view2
    0RR3S4S5S6S7S8S
In Box*
($Inbox)
Calendar.
($Calendar)
Meetings.
($Meetings)
To Do
($ToDo)
All Viewsu"
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$WINDOWTITLE
$$ScriptName
DeliveryDate
$BODY
$ACTIONS
*** Message Successfully Received ***
 Return Receipt
Return Receipt
        Your document:
Subject
Subject
        was received by:
IntendedRecipient
IntendedRecipient
        at:
DeliveryDate
    Always Hidden:
Path_Info
Path_Info
Categori_ze
Close"
    0S0E
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder...
Trash
    1S2S8S12S14S
/wCommand?OpenAgent&ToTrash=
&From="
    0R1S2S3S4S11S13S15S16S
Path_Info
Path_Info
    0R1S2S6S10S11S15S
view1
    0R1S2S3S10S14S18S21S
view2
view1
view1
view1
    0R1S2S3S10S14S18S21S
path"
view2
    0RR3S4S5S6S7S8S
    1S2S8S12S14S
/wFolders?OpenForm&UNID=
&View="
    0R1S2S3S4S11S13S15S16S
Path_Info
Path_Info
    0R1S2S6S10S11S15S
view1
    0R1S2S3S10S14S18S21S
view2
view1
view1
view1
    0R1S2S3S10S14S18S21S
path"
view2
    0RR3S4S5S6S7S8S
In Box*
($Inbox)
Calendar.
($Calendar)
Meetings.
($Meetings)
To Doe*
($ToDo)
All Viewsu"
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
5 =nMN
$TITLE
$INFO
$WINDOWTITLE
$$Script_O
$$ScriptName
DeliveryDate
$BODY
$ACTIONS
*** Message Not Delivered ***
 ReturnNonReceipt
Return Receipt Failure
    Your document:
Subject
OriginalSubject
    was not received by:
IntendedRecipient
IntendedRecipient
    because:
FailureReason
FailureReason
    Always Hidden:
Path_Info
Path_Info
Categori_ze
Close
    0S0E
Edit Documenth
Resend
Resend>
    7S12S
_Forward
_Move to Folder...
_Remove from Folder...
Trashs
    1S2S8S12S14S
/wCommand?OpenAgent&ToTrash=
&From="
    0R1S2S3S4S11S13S15S16S
Path_Info
Path_Info
    0R1S2S6S10S11S15S
view1
    0R1S2S3S10S14S18S21S
view2
view1
view1
view1
    0R1S2S3S10S14S18S21S
path"
view2
    0RR3S4S5S6S7S8S
    1S2S8S12S14S
/wFolders?OpenForm&UNID=
&View="
    0R1S2S3S4S11S13S15S16S
Path_Info
Path_Info
    0R1S2S6S10S11S15S
view1
    0R1S2S3S10S14S18S21S
view2
view1
view1
view1
    0R1S2S3S10S14S18S21S
path"
view2
    0RR3S4S5S6S7S8S
In Box*
($Inbox)
Calendar.
($Calendar)
Meetings.
($Meetings)
To Dos*
($ToDo)
All Viewsn"
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
T(lu RCt
$TITLE
$INFO
$WINDOWTITLE
$$Script_O
$$ScriptName
$BODY
$ACTIONS
*** Message Successfully Delivered ***
 Trace Report
Trace Report
    Your trace:
Subject
Subject
    has reached:
IntendedRecipient
MailServer
DeliveryDate
Trace Information
RouteServers
RouteServers
RouteTimes
RouteTimes
    Always Hidden:
Path_Info
Path_Info
Categori_ze_
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder...
Trash
    1S2S8S12S14S
/wCommand?OpenAgent&ToTrash=
&From="
    0R1S2S3S4S11S13S15S16S
Path_Info
Path_Info
    0R1S2S6S10S11S15S
view1
    0R1S2S3S10S14S18S21S
view2
view1
view1
view1
    0R1S2S3S10S14S18S21S
path"
view2
    0RR3S4S5S6S7S8S
    1S2S8S12S14S
/wFolders?OpenForm&UNID=
&View="
    0R1S2S3S4S11S13S15S16S
Path_Info
Path_Info
    0R1S2S6S10S11S15S
view1
    0R1S2S3S10S14S18S21S
view2
view1
view1
view1
    0R1S2S3S10S14S18S21S
path"
view2
    0RR3S4S5S6S7S8S
In Box*
($Inbox)
Calendar.
($Calendar)
Meetings.
($Meetings)
To Dod*
($ToDo)
All ViewsA"
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$WINDOWTITLE
$$Script_O
$$ScriptName
DeliveryDate
$BODY
$ACTIONS
_Special\BookmarkBookmark
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
Discussion Threads|Threads1
$39$13
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########
$SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}($All)1
$104$68
$68Yd
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
($Calendar)|Calendar11'
$134$126$143
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################
($Drafts)1$
$58$59$55
$65$65
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
$FolderInfo($FolderInfo)
$103Y
CN=Don Hatch/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes8##########################
$FolderRefInfo($FolderRefInfo)
$FolderRefV
    0S0E
$105$FolderRefID$FolderRefFlags$Conflict
$FolderRefh
    L1S1
$105$
$105$FolderRefID
$105Folder UNID*
$FolderRefV
    0S0E
$FolderRefIDFolder Reference ID$FolderRefFlagsFolder Reference Flags&
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
CN=Ryan Jansen/O=IrisCN=user1 test/O=C&SCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesAppointmentResponsess34Q1###############################################
VersionOpt|
    6S7S9S14S
$VersionOpt
    0R1S2S3S
SavedOnce
    0R1S2S3S
PostedDate(
    0R1S2S3S
DeliveredDate
    0R1S2S3S
$AutoEditMode
    0R1S2S3S
MailSaveOptions
    0R1S2S3S
VersionOpt
    0R4S
New Bookmark
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
Times New Roman
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "EmailProcessing"
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
 Bookmark'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIDOCUMENT
     Set Source = Bind(Objectname_)
     On Event Postopen From Source Call Postopen
     On Event Querysave From Source Call Querysave
     On Event Queryclose From Source Call Queryclose
     On Event Postmodechange From Source Call Postmodechange
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)

     Set ws = New NotesUIWorkSpace
     Set uidoc = source

     Call EmailOpen

End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)

     Call EmailSave(Continue)

End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)

     Call EmailClose(Continue)

End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)

     Call EmailModeChange

End Sub
    Always hidden:
Principal
CalendarProfile
Owner
    1S2S3S7S
Principal
Principal
    0R3S4S6S8S
FromPerson memo is from.
    0S0E
    0S0E
Encrypt
    0S0E
DefaultMailSaveOptions
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
Path_Info
Path_Info
$HideMailHeader
    0S0E
Bookmark
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
Bookmark
Bookmark
    From:
Principal
Principal
FromDomain
FromDomain
FromDomain
FromDomain
    7S10S15S16S18S22S25S29S32S33S37S39S42S43S45S47S48S49S55S58S62S65S71S
FromName
Principal
Principal
    0RR1S2S9S11S15S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom
     on
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDateTime/date memo was created or mailed.
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Sent by:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
SendTo
CopyTo
  cc:
CopyTo
    1S8S13S14S2E17S18S21S28S31S
MailAddress
InheritedReplyToh
InheritedReplyTo
InheritedReplyTo
InheritedFrom
    1S2S8S9S10S11S13S15S
MailAddress
    0RR
SendTo}
    0S0E
SendToList of primary people to send memo.
CopyTo}
    0S0E
CopyToList of people to send a copy of the memo.
DeliveredDate
BlindCopyTo
(bcc:
BlindCopyTo
    3S4S5S6S7S8S10S11S12S16S18S19S21StmpBlindCopyTo
    bcc:
BlindCopyTo
    0S0E
BlindCopyToList of undisclosed people to send copies of memo.
    Subject:
InheritedSubject
Subject
Subject
Topic
Topic
Title
Title
BriefDescriptionh
BriefDescription
    1S2S3S5R10S12R17S19R24S26R31S33R
Bookmark
InheritedSubjecth
InheritedSubject"
    0RR2S"
Subject
    0S0E
SubjectSubject of memo.
    Document Link Information:
InheritedDBTitle
    1S2S
    Database:
InheritedDBTitle
InheritedDBTitle
InheritedSubject
    1S2S
    Document:
InheritedSubject
InheritedSubject
FlowStatus
    1S2S
    Workflow status:
FlowStatus
FlowStatus
DueDateTime
    1S2S
    Due date:
DueDateTime
DueDateTime
      You may open the document by clicking on this link.
Edit Document
ForwardK
    0S0E
New Memo.
    0S0E
Delete
    0S0E
_Move To Folder...
Delivery Information...Kz
DeliveryInfo
Delivery Information
    4S5S6S7S8S9S10S12S
_Forward
Reply
Reply
    0S0E
Reply With History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Address...
    0S0E
PostedDateh
    5S6S7S8S
Close
    0S0E
PostedDateY
    0S0E
Save As Draft
tmpAction
SaveAsDraft
    1S2S3S
PostedDateh
    0S0E
PromptValue
DefaultMailSaveOptions
Save when sent
Do you wish to save a copy of this Memo?
DefaultMailSaveOptions
    1S2S5S6S8S14S17S
SaveOptions
PromptValue
SaveOptions
PromptValue
    0RR1S2S5S6S9S14S
tmpAction
DefaultMailSaveOptions
Mailing
    0RR1S2S3S6S7S9S11S
MailOptions
    0R1S2S3S
    0R7S9S
tmpAction
SaveOptions
SendAndFile
    0RR1S2S3S6S7S9S11S
    0R7S9S
PostedDateh
    5S6S7S8S
Send And File...
    4S11S13S19S
    0RR7S9S
tmpAction
DefaultMailSaveOptions
Mailing
    0RR1S2S3S6S7S9S11S
MailOptions
    0R1S2S3S
    0R7S9S
tmpAction
SendAndFile
    0RR1S2S3S
    0R7S9S
PostedDateh
    5S6S7S8S
Delivery Options...K
DeliveryOptions
Delivery Options
    4S8S
_ViewIcon
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
SenderTag
    0RR1S2S3S5RS3E6S7S8S9S11S13RS3E14S15S17S19RS3E20S21S23S25RS3E26S27S29S31RS3E32S33S35S37RS3E38S39S41S43RS3E44S45S47S49RS3E50S51S53S55RS3E56S57S59S61RS3E62S63S65S67RS3E68S69S71S73RS3E8
PostedDateh
    5S6S7S8S
Special Options...
ReplyDate
ReplyDate
    1S2S3S
ReplyTo
ReplyTo
    0R1S2S3S
(Advanced Options)
Special Options
    0R6S10S13S15S
tmpDisplayReplyInfo
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    0R1S2S3S4S5S8S9S11S13S14S15S17S18S21S22S24S26S27S28S
DueDateTime
ReplyDate
    0R1S2S3S
PostedDateh
    5S6S7S8S
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
tmpnewdoc
    1S2S
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New GroupK,
NewGroup
    0S0E
tmpnewdoc
    1S2S
_Remove From Folder...
Categori_zeK
SSend
Memo&
Reply
Reply
Trash
    1S2S8S12S14S
/wCommand?OpenAgent&ToTrash=
&From="
    0R1S2S3S4S11S13S15S16S
Path_Info
Path_Info
    0R1S2S6S10S11S15S
view1
    0R1S2S3S10S14S18S21S
view2
view1
view1
view1
    0R1S2S3S10S14S18S21S
path"
view2
    0RR3S4S5S6S7S8S
    1S2S8S12S14S
/wFolders?OpenForm&UNID=
&View="
    0R1S2S3S4S11S13S15S16S
Path_Info
Path_Info
    0R1S2S6S10S11S15S
view1
    0R1S2S3S10S14S18S21S
view2
view1
view1
view1
    0R1S2S3S10S14S18S21S
path"
view2
    0RR3S4S5S6S7S8S
In Box*
($InBox)
Calendar
    1S2S8S12S14S
path"
/($Calendar)?OpenView&Grid=
CalendarProfile
wCalGridType
    0R3S4S5S6S7S8S12S
Meetings.
($Meetings)
To Do
($ToDo)
All Views
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$$FormPostOpenAction
ExpireDate
ReplyDate
$TypeIcon
ReplyNumber
ComposedDate
DueDate
$TITLE
$AUTOLAUNCH
$INFO
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
DueDateTime
$BODY
$ACTIONS
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_18
oD$LeftToDo$TITLE$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$PublicAccess$Flags$AssistRunInfo$UpdatedBy$AssistVersion$Signature$Formula$TYPE$Operation$Scan$DBScript$DBScript_O$INFO$Fonts$BODY$FlagsNoRefresh$TemplateModTime$TemplateServerName$TemplateFileNameIconBitmap$SCRIPTOBJ_11$Index$FormulaClass$Collation$VIEWFORMAT$Comment$ACTIONS$SCRIPTOBJ_10$ViewGlobalScript_O$$ScriptName$$FormPostOpenAction$$XMB$Licensee$TypeIconExpireDateReplyDateComposedDate$WINDOWTITLE$Script$$Script_O$$FormScript$$$FormScript_OFromSignEncryptDefaultMailSaveOptions$KeepPrivateHeaderSendToCopyToBlindCopyToSubjectBodyFooter$SCRIPTOBJ_18$SCRIPTOBJ_19$SCRIPTOBJ_20DeleteOptionsArchiveLocationArchiveServerArchivePathCopyOptionsDocLife$ManualArchivers_OObsoleteLifeDocumentLife$MessageTypeLogCountLogTotalArchiveDateArchiveTrailerCategories$Header$AlarmOffesttmpAlarmOffest$AlarmAlarmTime$AlarmTimeAlarmOnAlarmOnTime$AlarmOffset$FormPublicAccesstmpAlarmOnDatetmpBeforeOrAftertmpAlarmOffset$AlarmDescriptiontmpAlarmOfftmpAlarmOnTimeSenderTagCompletedOnEndDateCalendarDate_Time___StartCalendarDate_Time___EndCalendarDatesCalendarDateRepeatDatesCalendarDateTimeEndDateTime$NoPurgeStartTimeEndTimeStartEndTimeStartDateTime$SCRIPTOBJ_23DurationStartDateReminderTimeTimeRange_ViewIcon$SCRIPTOBJ_6$SCRIPTOBJ_8$SCRIPTOBJ_9$SCRIPTOBJ_13$SCRIPTOBJ_21$SCRIPTOBJ_22tmpResourcestmpChairpersontmpSentByImportanceDeliveryReporttmpSenderTagDeliveryPriorityReturnReceiptLogoOriginatorOriginalRouteListRemainingRouteListNotifyorigDomainReplyToSMTPEncodingMailFormatRepeatEndRepeatStartOrgRepeatRepeatAdjust_CRepeatAdjust_MDRepeatAdjust_MPRepeatAdjust_WRepeatUnitRepeatInterval_MDMPRepeatStartDateRepeatHowRepeatUntilRepeatWeekendsRepeatForUnitRepeatForRepeatInterval_YDRepeatInterval_DRepeatInterval_WPhoneCallerCompanyNamePhoneNumberFAXNumberPhoneReason$Phone_OtmpPostedDateInfotmpFromInfo$$FirstDayOut1$FirstDayOut1_O$$FirstDayBack1$FirstDayBack1_O$$FirstDayOut$FirstDayOut_O$$FirstDayBack$FirstDayBack_O$$GeneralMessage$GeneralMessage_OAlreadyNotifiedSenderExcludeFromViewFirstDayOutFirstDayBackGeneralSubjectDaysOutGeneralMessageSpecialPeopleSpecialSubjectSpecialMessageIgnorePeopledateFirstDayOutdateFirstDayBacktmpUserActionsResponseTypeCommentstmpPeopleListtmpPeopleSelectedIntendedRecipientChangeWhichArchiveExpiredExpiredLifeArchiveInactiveArchiveLogIncludeDoclinksProfileEditorsDestinationProductDepartureDateReturnDateAgreementForwardedFromForwardedDate$AUTOLAUNCHSaveOptionsLetterHeadChoicesOwnerPublicReadReadCalendarPublicWriteWriteCalendarReadMailWriteMailEditMailDeleteMailDelegateAlertAssigneeAlertSelfAssignedDueDateTimeAssignedToSundayStart_1SundayEnd_1SundayStart_2SundayEnd_2SundayStart_3SundayEnd_3SundayStart_4SundayEnd_4SundayStart_5SundayEnd_5SundayStart_6SundayEnd_6TaskLeadTimeSlotStartTimeSlotEndTimeSlotIntervalSundayStartSundayEndMondayStartMondayEndTuesdayStartTuesdayEndWednesdayStartWednesdayEndThursdayStartThursdayEndFridayStartFridayEndSaturdayStartSaturdayEnd$SundayTimes$MondayTimes$TuesdayTimes$WednesdayTimes$ThursdayTimes$FridayTimes$SaturdayTimes$1Times$2Times$3Times$4Times$5Times$6Times$7Times$$FormAction2$$$Times1$$Times1_ODefaultDurationEnableAlarmsAutoSetAlarmsSetAlarmAppointmentAppointmentLeadSetAlarmReminderReminderLeadSetAlarmEventEventLeadSetAlarmAnniversaryAnniversaryLeadAllowBusyAccessSunday$Times1Monday$Times2Tuesday$Times3Wednesday$Times4Thursday$Times5Friday$Times6Saturday$Times7AutoProcessMeetingsAutoRemoveFromInboxMeetingsPeopleCalEntryTypeCalEntryHideConflictMeetingConflictAnnivConflictEvent$BusyName$AvailableDaystmpStartDatetmpEndDateNewDateNewTimeRangeReasonNewRoomStatusUpdateFormtmpNewStarttmpNewEnd$SCRIPTOBJ_4$SCRIPTOBJ_5$SCRIPTOBJ_14$SCRIPTOBJ_15AppointmentTypeBookFreeTimeOrgConfidentialBroadcast$ExpandGroups$SCRIPTOBJ_7$SCRIPTOBJ_24$SCRIPTOBJ_25ReplyNumberInheritedSendToInheritedReplyToInheritedFromInheritedFromDomain$$XMB_2$$XMB_3$OLEObjField$OLEObjRichTextFieldOLEBody$ACLDigestDeliveryDatePath_InfoDueDateInheritedDBTitleInheritedSubjectFlowStatus$SCRIPTOBJ_16$SCRIPTOBJ_17$Collation1$Collation2$SCRIPTOBJ_12$ViewGlobalScript$TABLEFORMAT$CalendarFormat$ViewScript$ViewScript_O$FormFormula$Name$Author$FolderObject$FolderIDTable$ScriptLib$ScriptLib_O
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
SentBy
Principal
Principal
    1S2S5S6S8S10S
Attendees
RequiredAttendees
OptionalAttendees
    0R1S2S5S6S
DeliveredDate
SentBy
Attendees
Attendees
SendTo
SentBy
SendTo
    0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
    0R1S2S8S
    0R1S2S15S16S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
NonDelivery Report
DELIVERY FAILURE:
FailureReason
PhoneCaller
Phone Call:
PhoneCaller
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
Subject
    3S4S6S7S8S10S15S16S17S19S20S21S23S24S25S27S28S29S31S32S33S35S
$27$39$13$32Subject$14$Conflict$REF
HiddenDocument
$MessageType
IsMailStationeryY
    L1S2S3S4S5S8S2E9S
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
$39Who
SentBy
Principal
Principal
    1S2S5S6S8S10S
Attendees
RequiredAttendees
OptionalAttendees
    0R1S2S5S6S
DeliveredDate
SentBy
Attendees
Attendees
SendTo
SentBy
SendTo
    0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
    0R1S2S8S
    0R1S2S15S16S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
$13Date
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S$32F
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105SSubject$14Subject~
NonDelivery Report
DELIVERY FAILURE:
FailureReason
PhoneCaller
Phone Call:
PhoneCaller
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
Subject
    3S4S6S7S8S10S15S16S17S19S20S21S23S24S25S27S28S29S31S32S33S35S&
Categori_ze
New Memo.
    0S0E
Delete
    0S0E
Move to Folder...
    0S0E
_Edit Document
_Forward
Reply
Reply
    0S0E
Reply With History@
Reply with history
    0S0E
_Move to Folder...
_Remove from Folder...
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New GroupS,
NewGroup
    0S0E
tmpnewdoc
    1S2S
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
$SCRIPTOBJ_11
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$ViewGlobalScript
$ViewGlobalScript_O
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
SentBy
Principal
Principal
    1S2S5S6S8S10S
Attendees
RequiredAttendees
OptionalAttendees
    0R1S2S5S6S
DeliveredDate
SentBy
Attendees
Attendees
SendTo
SentBy
SendTo
    0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
    0R1S2S8S
    0R1S2S15S16S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
NonDelivery Report
DELIVERY FAILURE:
FailureReason
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
ReturnNonReceipt
NOT RECEIVED:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
$93$104$68$92$74$Conflict
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
$104Who
SentBy
Principal
Principal
    1S2S5S6S8S10S
Attendees
RequiredAttendees
OptionalAttendees
    0R1S2S5S6S
DeliveredDate
SentBy
Attendees
Attendees
SendTo
SentBy
SendTo
    0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
    0R1S2S8S
    0R1S2S15S16S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
$68Date
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S$92F
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$74Subject
NonDelivery Report
DELIVERY FAILURE:
FailureReason
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
ReturnNonReceipt
NOT RECEIVED:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
New Memo.
    0S0E
Delete
    0S0E
Move To Folder...r
    0S0E
_Forward
Reply
Reply
    0S0E
Reply With History@
Reply with history
    0S0E
Categori_zer
_Edit Document
Send
Resend
NonDelivery Report
Not a Delivery Failure Report
You cannot Resend a message unless it is a Delivery Failure Report.
    6S12S17S23S
_Move To Folder...
_Remove From Folder...
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New Group
NewGroup
    0S0E
tmpnewdoc
    1S2S
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TYPE
$TABLEFORMAT
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$ViewGlobalScript
$ViewGlobalScript_O
StartTime
CalendarDateTimeL
    1S2S
DateList
CalendarDateTimeV
EndDateTime
    0R1S2S10S11S12S13S
AppointmentType
CalendarDateTime
DateList
StartTime
    0R3S4S5S6S7S8S9S10S12S14S20S21S22S23S
AppointmentType
EndDateTime
StartDateTime
    3S4S6S8S10S11S13S14S16S
section
OrgTable
    1S2S6S
section
section
section
    0R3S4S6RS5E8R9S10S12RS5E14R15S16S18RS5E20R
AppointmentType
StartDateTime
StartDateTime
StartDateTime
StartDateTime
-All Day-
    3S4S5S6S7S8S10RS4E17RS8E24S29S32RS5E35R
Subject
-No Subject-
Subject
    3S4S6S
$134$135$126$143_ViewIcon$141$Conflict
CalendarDateTimeh
$134t
StartTime
CalendarDateTimeL
    1S2S
DateList
CalendarDateTimeV
EndDateTime
    0R1S2S10S11S12S13S
AppointmentType
CalendarDateTime
DateList
StartTime
    0R3S4S5S6S7S8S9S10S12S14S20S21S22S23S$135
AppointmentType
EndDateTime
StartDateTime
    3S4S6S8S10S11S13S14S16S$126
section
OrgTable
    1S2S6S
section
section
section
    0R3S4S6RS5E8R9S10S12RS5E14R15S16S18RS5E20R
$143Time
AppointmentType
StartDateTime
StartDateTime
StartDateTime
StartDateTime
-All Day-
    3S4S5S6S7S8S10RS4E17RS8E24S29S32RS5E35R_ViewIcon$141DescriptionZ
Subject
-No Subject-
Subject
    3S4S6S
_Forward
_Edit Document
New Entry
Appointment
    0S0E
Go To TodayK$
    0S0E
Two Days$
One Week$
Two Weeks
One Month
_Move to Folder...
_Remove from Folder...
Categori_zeK
Send Docu_ment
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New GroupK,
NewGroup
    0S0E
tmpnewdoc
    1S2S
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "AppointmentProcessing"
Use "RepeatProcessing"
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub PutTask
Declare Sub SetViewObjectVariables(source)
Declare Sub PutCalendarEntry(Action)
Declare Sub PutAppointment(Action)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim uiview As NotesUIView
Dim startdt As NotesDateTime
Dim enddt As NotesDateTime
'++LotusScript Development Environment:2:2:PutTask:1:8
Sub PutTask

'This subroutine is used both for drag/dropping and for pasting
     Dim timeitem As NotesItem
     Dim timedt As New NotesDateTime("")

     On Error Goto ErrorRoutine

     Set timeitem = note.GetFirstItem("OriginalStartDate")
     Set datedt = New NotesDateTime(uiview.CalendarDateTime)
     Set timedt = timeitem.DateTimeValue
     Set date2 = New NotesDateTime(datedt.DateOnly & " " & timedt.TimeOnly)
'date1 is the original CalendarDateTime and date2 is the new one
     TotalDiff = date2.TimeDifference(date1)
'break the difference down to a number that fits in the integer datatype
     DayDiff = Fix(TotalDiff / 86400)
     SecDiff = TotalDiff Mod 86400
     MinDiff = Fix(SecDiff / 60)
     SecDiff = SecDiff Mod 60
'If you are changing the date
     If (date1.LSLocalTime <> date2.LSLocalTime) Then
          If note.StartDateTime(0) = "" Then
               Set note.DueDateTime = date2
               note.CalendarDateTime = note.DueDateTime
          Elseif note.DueDateTime(0) = "" Then
               Set note.StartDateTime = date2
               note.CalendarDateTime = note.StartDateTime
          Else
               Set note.StartDateTime = date2
               note.CalendarDateTime = note.StartDateTime
               Set dateitem = New NotesDateTime(note.DueDateTime(0))
               dateitem.AdjustDay(DayDiff)
               dateitem.AdjustMinute(MinDiff)
               dateitem.AdjustSecond(SecDiff)
               Set note.DueDateTime = dateitem
          End If
          Call MarkTempFields(note)
          Call note.Save(True, True, True)
     End If

     Exit Sub

ErrorRoutine:
     Messagebox Error & " (PutTask)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:SetViewObjectVariables:1:8
Sub SetViewObjectVariables(source)

     Set uiview = source
     Set session = New NotesSession
     Set ws = New NotesUIWorkspace
     Set db = session.CurrentDatabase

End Sub
'++LotusScript Development Environment:2:2:PutCalendarEntry:1:8
Sub PutCalendarEntry(Action)

'This subroutine is used both for drag/dropping and for pasting

     On Error Goto ErrorRoutine

     CheckAlarms = False
     Set documents = uiview.documents

     Set note = documents.GetFirstDocument
     While Not(note Is Nothing)
          note.OriginalStartDate = note.CalendarDateTime
          Set date1 = New NotesDateTime(note.OriginalStartDate(0))
          Select Case note.Form(0)
          Case "Task"
               PutTask
          Case "Appointment"
               PutAppointment(Action)
          Case Else
               'we only support this for Tasks and Appointments
          End Select
          Set note = documents.GetNextDocument(note)
     Wend

     If CheckAlarms Then ws.CheckAlarms
     ws.ViewRefresh

%REM
'we need to de-reference these object variables, and we don't care if any of the delete's fail
     On Error Resume Next
     Delete documents
     Delete parent
     Delete note
     Delete notice
     Delete date1
     Delete date2
%END REM

     Exit Sub

ErrorRoutine:
     Messagebox Error & " (PutCalendarEntry)"
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:PutAppointment:1:8
Sub PutAppointment(Action)
     Dim timeitem As NotesItem
     Dim timedt As New NotesDateTime("")

     On Error Goto ErrorRoutine

     Set notice = New NotesDocument(db)
     If Action = "Drop" And note.HasItem("OrgRepeat") Then Call SaveOriginalValues
     If note.HasItem("$Alarm") Then CheckAlarms = True
'see if the document was dropped onto a date but no time, or if this is an anniverary/event
     If (Hour(uiview.CalendarDateTime) = 0) Or (note.AppointmentType(0) = "1") Or (note.AppointmentType(0) = "2") Then
'since this was dropped on a date with no time, keep the same time
          Set datedt = New NotesDateTime(uiview.CalendarDateTime)
          Set timeitem = note.GetFirstItem("OriginalStartDate")
          Set timedt = timeitem.DateTimeValue
          Set date2 = New NotesDateTime(datedt.DateOnly & " " & timedt.TimeOnly)
     Else
          Set date2 = New NotesDateTime(uiview.CalendarDateTime)
     End If
     TotalDiff = date2.TimeDifference(date1)
'break the difference down to a number that fits in the integer datatype
     DayDiff = Fix(TotalDiff / 86400)
     SecDiff = TotalDiff Mod 86400
     MinDiff = Fix(SecDiff / 60)
     SecDiff = SecDiff Mod 60
'If you are changing the date
     If (date1.LSLocalTime <> date2.LSLocalTime) Then
          If (note.Chair(0) <> Owner) Then
'we are not the creator of this entry -> make sure the user wants to change the date/time of this meeting
               If (Messagebox("You are not the originator of this entry (" & note.Subject(0) & "). Are you sure you want to change the date/time?",36,"Warning") = 6) Then
                    Set note.StartDateTime = date2
                    note.StartDate = Datevalue(note.StartDateTime(0))
                    note.CalendarDateTime = note.StartDateTime
                    Set dateitem = New NotesDateTime(note.EndDateTime(0))
                    dateitem.AdjustDay(DayDiff)
                    dateitem.AdjustMinute(MinDiff)
                    dateitem.AdjustSecond(SecDiff)
                    Set note.EndDateTime = dateitem
                    If note.HasItem("$AlarmTime") Then
                         AlarmTime = note.GetItemValue("$AlarmTime")
                         Set dateitem = New NotesDateTime(AlarmTime(0))
                         dateitem.AdjustDay(DayDiff)
                         dateitem.AdjustMinute(MinDiff)
                         dateitem.AdjustSecond(SecDiff)
                         Set item = note.GetFirstItem("$AlarmTime")
                         Set item.DateTimeValue = dateitem
                    End If
                    If (note.AppointmentType(0) = "4") Then
                         note.ReminderTime = note.StartDateTime(0)
                    Else
                         Set trdr = session.CreateDateRange
                         Set startdt = New NotesDateTime(note.StartDateTime(0))
                         Set enddt = New NotesDateTime(note.EndDateTime(0))
                         Set trdr.StartDateTime = startdt
                         Set trdr.EndDateTime = enddt
                         Set note.TimeRange = trdr
                    End If
                    If Action = "Drop" Then
                         If note.HasItem("OrgRepeat") Then Call RepeatSave
                    Elseif note.HasItem("OrgRepeat") Then
                         note.RemoveItem("OrgRepeat")
                         note.RemoveItem("$Ref")
                         Messagebox "Pasting an instance of a repeating appointment creates a non-repeating appointment.", 64, "Paste"
                    End If
                    If CancelChange = True Then Exit Sub
                    Call MarkTempFields(note)
                    Call note.Save(True, True, True)
               End If
          Else
'we are the originator of this meeting
               Set note.StartDateTime = date2
               Set note.StartDate = date2
               note.CalendarDateTime = note.StartDateTime
               Set dateitem = New NotesDateTime(note.EndDateTime(0))
               dateitem.AdjustDay(DayDiff)
               dateitem.AdjustMinute(MinDiff)
               dateitem.AdjustSecond(SecDiff)
               Set note.EndDateTime = dateitem
               If note.HasItem("$AlarmTime") Then
                    AlarmTime = note.GetItemValue("$AlarmTime")
                    Set dateitem = New NotesDateTime(AlarmTime(0))
                    dateitem.AdjustDay(DayDiff)
                    dateitem.AdjustMinute(MinDiff)
                    dateitem.AdjustSecond(SecDiff)
                    Set item = note.GetFirstItem("$AlarmTime")
                    Set item.DateTimeValue = dateitem
               End If
               If (note.AppointmentType(0) = "4") Then
                    note.ReminderTime = note.StartDateTime(0)
               Else
                    Set trdr = session.CreateDateRange
                    Set startdt = New NotesDateTime(note.StartDateTime(0))
                    Set enddt = New NotesDateTime(note.EndDateTime(0))
                    Set trdr.StartDateTime = date2
                    Set trdr.EndDateTime = dateitem
                    Set note.TimeRange = trdr
               End If
'see if we need to reschedule the appointment
               If (Not(note.IsResponse) And (note.HasItem("PostedDate"))) Or ((note.IsResponse) And (note.AppointmentType(0) = "3")) Then

                    If (note.IsResponse) Then
                         Set parentnote = db.GetDocumentBYUNID(note.ParentDocumentUNID)
                         Call CreateInviteeTable(parentnote)
                    Else
                         Call CreateInviteeTable(note)
                    End If
                    NeedsReschedule = True
               End If
               If (NeedsReschedule) Then note.SequenceNum = note.SequenceNum(0) + 1
               If Action = "Drop" Then
                    If note.HasItem("OrgRepeat") Then Call RepeatSave
               Elseif note.HasItem("OrgRepeat") Then
                    note.RemoveItem("OrgRepeat")
                    note.RemoveItem("$Ref")
                    Messagebox "Pasting an instance of a repeating appointment creates a non-repeating appointment.", 64, "Paste"
               End If
               If CancelChange = True Then Exit Sub
               If (NeedsReschedule) Then Call RescheduleAppointment
               Call MarkTempFields(note)
               Call note.Save(True, True, True)
          End If
     End If

     Exit Sub

ErrorRoutine:
     Messagebox Error & " (PutAppointment)"
     Exit Sub

End Sub
    0    0
,`    Jh
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postdragdrop(Source As Notesuiview)
Declare Sub Regiondoubleclick(Source As Notesuiview)
Declare Sub Querydragdrop(Source As Notesuiview, Continue As Variant)
Declare Sub Postpaste(Source As Notesuiview)
Declare Sub Queryopen(Source As Notesuiview, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As NOTESUIVIEW
     Set Source = Bind(Objectname_)
     On Event Postdragdrop From Source Call Postdragdrop
     On Event Regiondoubleclick From Source Call Regiondoubleclick
     On Event Querydragdrop From Source Call Querydragdrop
     On Event Postpaste From Source Call Postpaste
     On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Postdragdrop:1:12
Sub Postdragdrop(Source As Notesuiview)

     Call SetViewObjectVariables(source)
     Call GetCalendarOwner
     Call PutCalendarEntry("Drop")

End Sub
'++LotusScript Development Environment:2:2:Regiondoubleclick:1:12
Sub Regiondoubleclick(Source As Notesuiview)

     Set ws = New NotesUIWorkspace
     Set session = New NotesSession

     If source.CalendarDateTime <> "" Then Call ws.ComposeDocument("", "", "Appointment")

End Sub
'++LotusScript Development Environment:2:2:Querydragdrop:1:12
Sub Querydragdrop(Source As Notesuiview, Continue As Variant)

End Sub
'++LotusScript Development Environment:2:2:Postpaste:1:12
Sub Postpaste(Source As Notesuiview)

     Call SetViewObjectVariables(source)
     GetCalendarOwner
     PutCalendarEntry("Paste")

End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuiview, Continue As Variant)

End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$PublicAccess
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$CalendarFormat
$Comment
$ACTIONS
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$ViewGlobalScript
$ViewGlobalScript_O
$ViewScript
$ViewScript_O
IsMailStationeryh
Stationery
Drafts
    7S9S
IsMailStationeryh
    7S9S
SendTo
    1S2S6S
    0R1S2S8S
    0R1S2S15S16S17S18S25S
SendTo
    0R1S2S5S6S8S12S16S20S
SendTo
    0R1S2S5S6S8S12S16S20S
Person
    0R1S2S5S6S8S10S11S12S13S14S
Person
Person
Person
Person
    0R10S11S20S32S
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
IsMailStationeryh
MailStationeryName
Subject
    7S9S
$58$59$65$55$62$60$Conflict
PostedDate
$MessageType
ExcludeFromView
    L1S2S3S4S5S6S7S8S9S12S13S
IsMailStationeryh
Stationery
Drafts
    7S9S
IsMailStationeryh
    7S9S
$65Whol
SendTo
    1S2S6S
    0R1S2S8S
    0R1S2S15S16S17S18S25S
SendTo
    0R1S2S5S6S8S12S16S20S
SendTo
    0R1S2S5S6S8S12S16S20S
Person
    0R1S2S5S6S8S10S11S12S13S14S
Person
Person
Person
Person
    0R10S11S20S32S
$55Date
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$60Subjectb
IsMailStationeryh
MailStationeryName
Subject
    7S9S
New Memo.
    0S0E
Delete
    0S0E
_Forward
Categori_ze
Edit Document
IsMailStationeryh
    7S9S
MailStEd
Edit Document
Which would you like to do?
Edit this Stationery
Edit this Stationery
Create a new message from this Stationery
Edit this Stationery
    0RR1S2S3S8S9S11S13S15S17S18S19S21S22S24S26S
Use Stationery
IsMailStationeryh
Not Stationery
This is a not a Stationery message.
    7S9S
Rename Stationery...
IsMailStationery
Rename Stationery
The currently selected document is a Draft.  Only Stationery documents can be renamed.
    3S4S10RS9E19RS9E
MailStationeryName
Rename Stationery
What would you like to call this Stationery message?
MailStationeryName
    0R1S2S3S7S9S11S
_Move To Folder...
_Remove From Folder...
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New Group
NewGroup
    0S0E
tmpnewdoc
    1S2S
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$FormFormula
$Comment
$ACTIONS
$SCRIPTOBJ_11
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$ViewGlobalScript
$ViewGlobalScript_O
($Meetings)|Meetings11
StartDateTime
StartDateTimeY
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
($POP3UIDL)|($POP3UIDL)J
$RFC822MessageSize
    1S2S3S
$RFC822MessageSize
$POP3ExportSize
    1S2S3S
$POP3ExportSize
MailPop3UIDLDeliveredDate$32$30$Conflict
MailPop3UIDL
    1S2S3S
MailPop3UIDL
    0RL1S2S3S1-
MailPop3UIDLDeliveredDate
MailPop3UIDLMailPop3UIDLDeliveredDateDelivered Date$32$RFC822MessageSize`
$RFC822MessageSize
    1S2S3S
$RFC822MessageSize
$30$POP3ExportSize\
$POP3ExportSize
    1S2S3S
$POP3ExportSize
553Courier NewYP
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################
($POP3)@
$RFC822MessageSize
    1S2S3S
$RFC822MessageSize
$POP3ExportSize
    1S2S3S
$POP3ExportSize
DeliveredDate$32$30$Conflict
DeliveredDate
    1S2S3S
DeliveredDate
    0RL1S2S3S1
DeliveredDate
DeliveredDateDelivered Date$32$RFC822MessageSize`
$RFC822MessageSize
    1S2S3S
$RFC822MessageSize
$30$POP3ExportSize\
$POP3ExportSize
    1S2S3S
$POP3ExportSize
553Courier NewY
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=Iris######################
($Profiles)H
Form$Conflict
Profile
    L1S5S1
FormType&
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
($Inbox)($Inbox)1
$93$70
$70Newly received mail messages.FY
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
############
##########################################################
##########################################################
Appointment
_ViewIcon
_ViewIcon
    3S4S6S8S13S15S
Principal
Principal
    1S2S
OrgRepeat
Notice
Subject
Subject
StartDateTime
D0S2V
PostedDateh
NoticeType
 can meet at the suggested time
NoticeType
 would like to propose a change
NoticeType
 will not be attending"
NoticeType
 has asked someone else to attend instead
From
Subject
Subject
    0R7RS4E10S11S13RS18E15RS13E16S17S18S19S23S25S26S29R34RS4E37S38S40RS13E41S42S44RS8E45S46S48RS14E49S50S52RS8E53S54S56RS14E57S58S60RS8E61S62S64RS14E65S66S68RS7E69S70S71S72S73S74S77R
$119$122StartDateTimeSubject$Conflict$REF
Appointment
Notice
    L1S2S3S6S7S
 $119
Appointment
_ViewIcon
_ViewIcon
    3S4S6S8S13S15S
$122x
Principal
Principal
    1S2S
OrgRepeat
Notice
Subject
Subject
StartDateTime
D0S2V
PostedDateh
NoticeType
 can meet at the suggested time
NoticeType
 would like to propose a change
NoticeType
 will not be attending"
NoticeType
 has asked someone else to attend instead
From
Subject
Subject
    0R7RS4E10S11S13RS18E15RS13E16S17S18S19S23S25S26S29R34RS4E37S38S40RS13E41S42S44RS8E45S46S48RS14E49S50S52RS8E53S54S56RS14E57S58S60RS8E61S62S64RS14E65S66S68RS7E69S70S71S72S73S74S77R
StartDateTimeMeeting TimeSubjectSubject&
_Forward
_Edit Document
New Entry
Appointment
    0S0E
_Move to Folder...
_Remove from Folder...
Categori_zeK
Send Docu_ment
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New GroupK,
NewGroup
    0S0E
tmpnewdoc
    1S2S
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
jZl,BH'
$TITLE
$PublicAccess
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
$SCRIPTOBJ_7
$SCRIPTOBJ_8
$SCRIPTOBJ_9
$ViewGlobalScript
$ViewGlobalScript_O
_Forward
Categori_zeK
Edit Message
_Move to Folder...
_Remove from Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
$SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}($Sent)1
$82$62
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
$SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}($ToDo)|Tasks1D
$172$176$186DueDateTime$182#
$182DueDateTimeY
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########
$SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}Brian Lambert($VIM100)/P=240B
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
FromDomainh
FromDomain"
DeliveryPriority
DeliveryPriority
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
Subject
$53$47$48$50$51$52$Conflict
$MessageType
    L1S1$
$53$47$48
Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=Iris############################
$SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}Brian Lambert($VIM23)/P=240d
PostedDateY
VIMSEL_DRAFT
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
FromDomainh
FromDomain"
DeliveryPriority
DeliveryPriority
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
Subject
$53$47$48$50$51$52$Conflict
$MessageType
    L1S1$
$53$47$48
Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=Iris
##########################################################
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesResourceProcessings34Q1#########
DeliveredDate
PostedDate
PostedDateY
Importance
    6S11S12S17S19S31S
SentBy
Principal
Principal
    1S2S5S6S8S10S
Attendees
RequiredAttendees
OptionalAttendees
    0R1S2S5S6S
DeliveredDate
SentBy
Attendees
Attendees
SendTo
SentBy
SendTo
    0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
    0R1S2S8S
    0R1S2S15S16S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
NonDelivery Report
DELIVERY FAILURE:
FailureReason
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
ReturnNonReceipt
NOT RECEIVED:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
$71$82$62$75$65$Conflict
DeliveredDate
PostedDate
    L1S4S5S
DeliveredDate
PostedDate
PostedDateY
Importance
    6S11S12S17S19S31S$82Who
SentBy
Principal
Principal
    1S2S5S6S8S10S
Attendees
RequiredAttendees
OptionalAttendees
    0R1S2S5S6S
DeliveredDate
SentBy
Attendees
Attendees
SendTo
SentBy
SendTo
    0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
    0R1S2S8S
    0R1S2S15S16S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
$62Date
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S$75F
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$65Subject
NonDelivery Report
DELIVERY FAILURE:
FailureReason
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
ReturnNonReceipt
NOT RECEIVED:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
New Memo.
    0S0E
Delete
    0S0E
Move To Folder...%
    0S0E
_Forward
Categori_ze
Edit Document1
Edit New Copy
MailStEd
    1S2S3S
_Move To Folder...
_Remove From Folder...
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New Groupt,
NewGroup
    0S0E
tmpnewdoc
    1S2S
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TYPE
$TABLEFORMAT
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
$SCRIPTOBJ_10
$SCRIPTOBJ_11
$SCRIPTOBJ_12
$ViewGlobalScript
$ViewGlobalScript_O
DueStateh
DueState
    7S9S
DueState
Overdue
DueState
Future
DueState
Rejected
DueState
Complete
Current
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
$186l
AssignState
Importance
Importance
Importance
    4S6R7S8S10S12R18R24R30R
SentBy
Principal
Principal
    1S2S5S6S8S10S
Subject
SentBy
 (Assigned by
SentBy
    0R1S2E2S5S6S8S14S16S17S19S
AssignedToh
AssignedTo
AssignedTo
AssignState
 (Not Sent)
ReplyTo
ReplyDate
SendTo
SendTo
ReplyTo
    2R6S7S10S11S15S18S20S24S26S27S30S31S33S35S39R42S43S46S49S50S52S56S59S65S68S72S76S78S82S86R
$172$176$186Subject$185DueDateTime$182$Conflict$REF
DueDateTime
ExcludeFromView
    L1S3S4S5S6S7S8S9S10S12S13S16S17S
 $172N
DueStateh
DueState
    7S9S
DueState
Overdue
DueState
Future
DueState
Rejected
DueState
Complete
Current
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S$186
$186l
AssignState
Importance
Importance
Importance
    4S6R7S8S10S12R18R24R30RSubject$185Task
SentBy
Principal
Principal
    1S2S5S6S8S10S
Subject
SentBy
 (Assigned by
SentBy
    0R1S2E2S5S6S8S14S16S17S19S
DueDateTimeDue$182Assigned To
AssignedToh
AssignedTo
AssignedTo
AssignState
 (Not Sent)
ReplyTo
ReplyDate
SendTo
SendTo
ReplyTo
    2R6S7S10S11S15S18S20S24S26S27S30S31S33S35S39R42S43S46S49S50S52S56S59S65S68S72S76S78S82S86R
Categori_zeK
_Forward
_Edit Document
Send Docu_ment
New Task.
    0S0E
Delete
DueState
Task Not Completed
This Task is not yet completed, are you sure you want to delete it?
    3S4S5S6S7S8S10R21S23S29S
Mark Completed'++LotusScript Development Environment:2:5:(Options):0:74
Use "ObjectVariables"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
Declare Function SendNotification(ReplyType, MessageText, NewState, ViewIcon) As Variant
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim maildoc As NotesDocument
Dim dt As NotesDateTime
Dim Subject As Variant
Dim Action As Variant
Dim NewSubject As String
Dim ComposeReply As Variant
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)

     Dim sendToList As Variant
     Dim cnName As Variant
     Dim foundName As Integer

     ComposeReply = False
     Call InstantiateObjectVariables

     Set dt = New NotesDateTime("")
     dt.SetNow

     Set ws = New NotesUIWorkspace
     Set documents = db.UnprocessedDocuments

     If documents.Count = 0 Then Exit Sub

     For d = 1 To documents.Count
          Set note = documents.GetNthDocument(d)
          If note.HasItem(Principal) Then
               FromName = note.Principal(0)
          Else
               FromName = note.From(0)
          End If
          If note.Form(0) = "Task" Then
               oldAssignState = note.AssignState(0)
          Else
               oldAssignState = 99
          End If
          Subject = note.Subject(0)
          NewSubject = "Task:  " & Subject & " is complete as of " & dt.LSLocalTime
          Select Case oldAssignState
          Case 0, 1 '0=assigned to yourself.  1=assigned to someone else but not sent
               Gosub CompleteThisTask
          Case 8, 9 '9=complete
               Messagebox Subject & " is already closed.", 0, "Task Completion"
          Case 99 '99=this is not a Task doc
               Messagebox Subject & " is not a task document and therefore it cannot be completed.", 0, "Task Completion"
          Case Else ' make sure current user (using common name) is included in the assignTo list
               sendToList = note.SendTo
               cnName = Evaluate("@Name([CN]; @Username )")
               foundName = False
               Forall a In sendToList
                    If Instr(Lcase(a), Lcase(cnName(0))) > 0 Then
                         foundName = True
                         Exit Forall
                    End If
               End Forall

               If Not foundName Then
                    Messagebox "Task '" & Subject & "' is not assigned to you. You cannot complete a task that is assigned to someone else.", 0, "Task Completion"
               Else
                    Action = "Complete"
                    If SendNotification("completion", "I have completed task: ", 9, 82) = False Then Exit Sub
                    Gosub CompleteThisTask
               End If
          End Select
     Next

     If ComposeReply Then Call ws.ComposeDocument("", "", "Reply")

     Delete note
     ws.ViewRefresh

     Exit Sub

CompleteThisTask:
     note.DueState = 9
     note.AssignState = 9
     note.CompletedDateTime = dt.LSLocalTime
     Call note.ReplaceItemValue("_ViewIcon", 82)
     Call note.save(True, True, True)
     Return

End Sub
'++LotusScript Development Environment:2:1:SendNotification:1:8
Function SendNotification(ReplyType, MessageText, NewState, ViewIcon) As Variant

'(this was copied from the Task form)

     SendNotification = True

     FromCommonName = Evaluate("@Name([CN]; Principal)", note)
     If FromCommonName(0) = "" Then FromCommonName = Evaluate("@Name([CN]; From)", note)

     CommentQuery = Messagebox("A " & ReplyType & " notice will be sent to " & FromCommonName(0) &_
     ".  Do you wish to send additional comments?", MB_YESNOCANCEL, "Task " & Action)
     Select Case CommentQuery
     Case IDYES
          Call session.SetEnvironmentVar("MailStEd", Cstr(NewSubject))
          ComposeReply = True
     Case IDNO
          Set maildoc = New NotesDocument(db)
          Set rtitem = New NotesRichTextItem(maildoc, "Body")
          If note.HasItem("Principal") Then
               maildoc.SendTo = note.Principal(0) & " @ " & note.FromDomain(0)
          Else
               maildoc.SendTo = note.From(0) & " @ " & note.FromDomain(0)
          End If
          maildoc.Subject = NewSubject
          rtitem.AppendText(MessageText & Subject & ".  ")
          maildoc.Form = "Reply"
          maildoc.Principal = Owner
          maildoc.AssignState = NewState
          maildoc.DueState = NewState
          Call maildoc.AppendItemValue("_ViewIcon", ViewIcon)
          Call maildoc.Save (True, True, True)
          Call maildoc.MakeResponse(note)
          On Error Goto SendError
          Call maildoc.Send (False)
          Call maildoc.Save (True, True, True)
          ws.ViewRefresh
     Case IDCANCEL
          note.SaveOptions = "0"
          note.MailOptions = "0"
          CommentQuery = "Cancel"
          SendNotification = False
          Exit Function
     End Select

     note.SaveOptions = "1"
     note.AssignState = NewState
     note.DueState = NewState
     Call note.ReplaceItemValue("_ViewIcon", ViewIcon)

     Exit Function

SendError:
     Messagebox ReplyType & " reply document could not be sent to " & FromCommonName(0) & " at this time.  Please retry", MB_OK, "Task Completion"
     SendNotification = False
     maildoc.Remove(True)
     Exit Function

End Function
Unmark Completed
AssignState
Unmark Completed Task
You cannot unmark a task that has not been completed.
    3S4S6S8S14S16S
DbOwner
CalendarProfile
Owner
    0R1S2S6S
4.0 converted AssignedTo to abbreviated name and 4.5 does not so here we are checking both
    0RR1S
Owner1
DbOwner
DbOwner
    0R1S2S6S9S10S12S14S
Owner2
DbOwner
DbOwner
    0R1S2S6S9S10S12S14S
AssignedTo1
AssignedTo
    0R1S2S6S
AssignedTo2
AssignedTo
    0R1S2S6S
User1
    0R1S2S6S
User2
    0R1S2S6S
AssignedTo1
AssignedTo2
Owner1
Owner2
User1
User2
Unmark Completed Task
You can only unmark a completed task that was assigned to you.
    0RR3S4S5S6S7S8S9S10S11S12S13S14S16S18S24S26S
AssignState
    0R1S2S3S
DueState
    0R1S2S3S
CompletedDateTime
    0R1S2S3S
Update Tasks.
Update Tasks
_Move to Folder...
_Remove from Folder...
Remove from To Do View`
ExcludeFromView
ExcludeFromView
    1S2S3S8S9S
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New GroupK,
NewGroup
    0S0E
tmpnewdoc
    1S2S
^(    Kt
Q8    I$
Q8    I$
    4S5S
Principal
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TYPE
$TABLEFORMAT
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
$SCRIPTOBJ_6
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$ViewGlobalScript
$ViewGlobalScript_O
 $53Unique ID
$47Date^
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
$48From`
FromDomainh
FromDomain"
$50PriorityD
DeliveryPriority
DeliveryPriority
$51Type
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
$52Subject
Subject
Categori_ze
_Edit Document
Send Docu_ment
_Forward
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
>j\:]?
$TYPE
$TABLEFORMAT
$Author
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
 $53Draft4
PostedDateY
VIMSEL_DRAFT
$47Date^
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
$48From`
FromDomainh
FromDomain"
$50PriorityD
DeliveryPriority
DeliveryPriority
$51Type
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
$52Subject
Subject
Categori_ze
_Edit Document
Send Docu_ment
_Forward
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
UMQ+5a
$TYPE
$TABLEFORMAT
$Author
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
$SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}Brian Lambert($VIM256)/P=240
Recipients
Categories
Categoriesb
(No Category)
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
FromDomainh
FromDomain"
DeliveryPriority
DeliveryPriority
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
Subject
$53$47$48$50$51$52$Conflict
$MessageType
    L1S1$
$53$47$48T
Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=Iris###
$SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}Brian Lambert($VIM42)/P=240
Recipients
SenderCategorized
SenderCategorized
(No Category)
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
FromDomainh
FromDomain"
DeliveryPriority
DeliveryPriority
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
Subject
$53$47$48$50$51$52$Conflict
$MessageType
    L1S1$
$53$47$48
Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=Iris#####################################################
$SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}Brian Lambert($VIM98)/P=240
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
FromDomainh
FromDomain"
DeliveryPriority
DeliveryPriority
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
Subject
$45$47$48$50$51$52$Conflict
$MessageType
    L1S1$
$45$47$48
Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=Iris###############################################
##########################################################
##########################################################
##########################################################
 $53Categoryj
Recipients
Categories
Categoriesb
(No Category)
$47Date^
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
$48From`
FromDomainh
FromDomain"
$50PriorityD
DeliveryPriority
DeliveryPriority
$51Type
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
$52Subject
Subject
Categori_ze
_Edit Document
Send Docu_ment
_Forward
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TYPE
$TABLEFORMAT
$Author
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
 $53Keywordz
Recipients
SenderCategorized
SenderCategorized
(No Category)
$47Date^
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
$48From`
FromDomainh
FromDomain"
$50PriorityD
DeliveryPriority
DeliveryPriority
$51Type
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
$52Subject
Subject
Categori_ze
_Edit Document
Send Docu_ment
_Forward
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TYPE
$TABLEFORMAT
$Author
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
 $45Type
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
$47Date^
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
$48From`
FromDomainh
FromDomain"
$50PriorityD
DeliveryPriority
DeliveryPriority
$51Type
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
$52Subject
Subject
Categori_ze
_Edit Document
Send Docu_ment
_Forward
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TYPE
$TABLEFORMAT
$Author
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
($Alarms)|$Alarms1($Alarms)|$Alarms
$AlarmTimeh
$AlarmTime
CalendarDateTime
$AlarmOffset
    7S9S13S15S17S19S21S23S
$92CalendarDateTime$AlarmOffset$AlarmDescription$Conflict
$92CalendarDateTime
$92AlarmTime
$AlarmTimeh
$AlarmTime
CalendarDateTime
$AlarmOffset
    7S9S13S15S17S19S21S23S
CalendarDateTimeCalendarDateTime$AlarmOffsetOffset$AlarmDescriptionDescription&
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
########################
($Trash)1($Trash)1
$87$64
$64FY
CN=Don Hatch/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
########################################################
CN=Mike Brady/O=Iris AssociatesCN=Ryan Jansen/O=IrisJoe BlowCN=Ryan Jansen/O=IrisCN=Catherine Duffy/O=IrisCN=Ryan Jansen/O=IrisCN=user2 test/O=C&SCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesAppointmentProcessings34Q1################################################
CN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisMary LambCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisCN=Don Hatch/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesEmailProcessings34Q1
##########################################################
CN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Carol Brady/O=Iris AssociatesCN=Ryan Jansen/O=IrisJoe BlowCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesNoticeProcessings34Q1
##########################################################
Joe BlowCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=user3 test/O=C&SCN=Ryan Jansen/O=IrisJoe BlowCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesNoticeResponsess34Q1#####################################################
##########################################################
##########################################################
New Memo.
    0S0E
Delete
    0S0E
Move To Folder...
    0S0E
_Forward
Reply
Reply
    0S0E
Reply With History@
Reply with history
    0S0E
Categori_zeK
_Edit Document
Send
Resend
NonDelivery Report
Not a Delivery Failure Report
You cannot Resend a message unless it is a Delivery Failure Report.
    6S12S17S23S
_Move To Folder...
_Remove From Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$PublicAccess
$Name
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
SentBy
Principal
Principal
    1S2S5S6S8S10S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S7S8S9S10S12S14S18S
    0R1S2S8S
    0R1S2S15S16S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
NonDelivery Report
DELIVERY FAILURE:
FailureReason
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
ReturnNonReceipt
NOT RECEIVED:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
$86$93$70$85$73$Conflict
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
$93Who>
SentBy
Principal
Principal
    1S2S5S6S8S10S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S7S8S9S10S12S14S18S
    0R1S2S8S
    0R1S2S15S16S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
$70Date
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S$85F
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$73Subject
NonDelivery Report
DELIVERY FAILURE:
FailureReason
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
ReturnNonReceipt
NOT RECEIVED:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
New Memo.
    0S0E
Delete
    0S0E
Move To Folder...+
    0S0E
_Forward
Reply 4
Reply
    0S0E
Reply With History@
Reply with history
    0S0E
Categori_zer
_Edit Document
Send Docu_ment
Resend
NonDelivery Report
Not a Delivery Failure Report
You cannot Resend a message unless it is a Delivery Failure Report.
    6S12S17S23S
_Move To Folder...
_Remove From Folder...
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_MEMO)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_CALENDAR)
End Sub
tmpnewdoc
    1S2S
Copy into\New Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As BUTTON
     Set Source = Bind(Objectname_)
     On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
     Call CreateNewDoc(NEW_TASK)
End Sub
tmpnewdoc
    1S2S
Copy into\New Groupe,
NewGroup
    0S0E
tmpnewdoc
    1S2S
Retrieve maila
Database
    1S2S
Database
($Inbox)
    0R4S6S
    4S5S
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "ObjectVariables"
Use "DocumentConversions"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
n)QV2
$TITLE
$Name
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$ViewGlobalScript
$ViewGlobalScript_O
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
SentBy
Principal
Principal
    1S2S5S6S8S10S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S7S8S9S10S12S14S18S
    0R1S2S8S
    0R1S2S15S16S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
IsMailStationeryh
MailStationeryName
NonDelivery Report
DELIVERY FAILURE:
FailureReason
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
ReturnNonReceipt
NOT RECEIVED:
Subject
Subject
    7S9S10S11S13S14S15S17S18S19S21S22S23S25S26S27S29S30S31S33S34S35S37S38S39S41S
$79$87$64$80$69$Conflict
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
$87Who>
SentBy
Principal
Principal
    1S2S5S6S8S10S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S7S8S9S10S12S14S18S
    0R1S2S8S
    0R1S2S15S16S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
$64Date
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S$80F
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$69Subject
IsMailStationeryh
MailStationeryName
NonDelivery Report
DELIVERY FAILURE:
FailureReason
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
ReturnNonReceipt
NOT RECEIVED:
Subject
Subject
    7S9S10S11S13S14S15S17S18S19S21S22S23S25S26S27S29S30S31S33S34S35S37S38S39S41S
Categori_ze
_Edit Document
Send Docu_ment
_Forward
Empty Trash
    0S0E
_Move to Folder...
_Remove From Trash
>|'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
adE+!
$TITLE
$PublicAccess
$Name
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ACTIONS
$ViewGlobalScript
$ViewGlobalScript_O
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "NoticeProcessing"
Use "ResourceProcessing"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Function SendInvitation As Integer
Declare Sub RescheduleAppointment
Declare Sub CancelAppointment
Declare Sub ConfirmAppointment
Declare Sub RemoveInvitee
Declare Sub BuildAttendeeLists(mode As Integer)
Declare Sub SelectUserToRemove
Declare Sub ChangeStatus
Declare Sub RollbackAppointment(BusyPriority As String)
'++LotusScript Development Environment:2:5:(Declarations):0:10
'AppointmentProcessing:
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
'++LotusScript Development Environment:2:1:SendInvitation:1:8
Function SendInvitation As Integer
    *This routine is called whenever the meeting originator invites users to a meeting
    *This routine sends out an invitation notice to the people listed in the
     SendTo and CopyTo items and adds them to the RequiredAttendees and OptionalAttendees items
    *This is the only routine that does not create a separate notice document to mail
    *The reason is that we need the router to update the SendTo and CopyTo items
    Outputs:
    returns 0 if no errors occur, 1 if an error does occur
%END REM


     On Error Goto ErrorRoutine
     On Error 4412 Goto CleanUp          'this should trap uidoc.Send errors

'if we have never invited anyone, add the SequenceNum item
     If Not note.HasItem("SequenceNum") Then note.SequenceNum = 1

'modify the appointment document so it is an invitation
     note.Form  = "Notice"
     note.NoticeType = ORS_MSGTYPE_INVITE
     note.Topic = note.Subject
     note.apptunid = note.UniversalID
     If (note.Broadcast(0) = "1") Then
          MailSubject$ = "Broadcast - "
     Else
          MailSubject$ = "Invitation - "
     End If
     Set startitem = note.GetFirstItem("StartDateTime")
     If (note.Room(0) <> "") Then
          note.Subject = MailSubject$ & note.Subject(0) & " (" & GetSubjectText(startitem.DateTimeValue.LSLocalTime) & " in " & note.Room(0) & ")"
     Else
          note.Subject =  MailSubject$ & note.Subject(0) & " (" & GetSubjectText(startitem.DateTimeValue.LSLocalTime) & ")"
     End If
     Call note.ReplaceItemValue("_ViewIcon",133)
     note.Principal = Owner
     note.Chair = Owner
'remove fields that will need to be added later
     Call note.RemoveItem("CalendarDateTime")
     Call note.RemoveItem("OrgTable")
     BusyPriority = note.GetItemValue("$BusyPriority")
     Call note.RemoveItem("$BusyName")
     Call note.RemoveItem("$BusyPriority")
     Call note.RemoveItem("tmpOwner")

'build the attendee lists so that the invitees have them
     Call BuildAttendeeLists(1)
     Call note.RemoveItem("tmpRequiredAttendees")
     Call note.RemoveItem("tmpOptionalAttendees")

'this supresses the sign/encrypt dialog
     note.MailOptions = "1"
     Call uidoc.reload

'we call the send from the NotesUIDocument object so that the Ambiguous Names dialog is invoked if needed
     Call uidoc.Send

'reset the fields on the note to make it an appointment
     Call RollbackAppointment(BusyPriority(0))

'rebuild the attendees lists with the updated values from the router
     Call BuildAttendeeLists(2)

'remove fields from the note
     note.SendTo =""
     note.CopyTo = ""
     SendInvitation = 0
     Exit Function

Cleanup:
'reset the fields on the note to make it an appointment
     Call RollbackAppointment(BusyPriority(0))
     SendInvitation = 1
     Call uidoc.Reload
     Exit Function

ErrorRoutine:
     Call RollbackAppointment(BusyPriority(0))
     Messagebox Error & " (SendInvitation)"
     SendInvitation = 1
     Exit Function
End Function
'++LotusScript Development Environment:2:2:RescheduleAppointment:1:8
Sub RescheduleAppointment
    *This routine is called whenever the user changes the room and/or the date/time of the meeting
    *This routine increments the SequenceNum item by 1 and notifies the room, resources, and invitees
     of the change by sending Reschedule notices out
    *This is routine is called from the uidocument or the calendar view (for drag/drop)
%END REM

     On Error Resume Next

'see if this document belongs to a repeat set
     If (note.hasitem("tmpRescheduleWhich")) Then
          Call ProcessRepeatingResources(note.tmprescheduleWhich(0),ORS_MSGTYPE_RESCHEDULE,ORS_STATE_RESOURCE)
          Call ProcessRepeatingResources(note.tmprescheduleWhich(0),ORS_MSGTYPE_RESCHEDULE,ORS_STATE_ROOM)
     Else
'this is not a repeating meeting
'reschedule the resources if need be
          If (note.RequiredResources(0) <> "") Then Call RescheduleResources(ORS_STATE_RESOURCE,note)
 'reschedule the room if need be
          If (note.RoomRequired(0) = "1") And (note.Room(0) <> "") Then Call RescheduleResources(ORS_STATE_ROOM,note)
     End If

     On Error Goto ErrorRoutine

'we need to add the correct attendees to the sendto item
     Call GetMailingList

'make sure we have people to notify
     If (MailingList(0) = "") Then Exit Sub

'create the notice document
     Call CreateNoticeDocument("Reschedule -",ORS_MSGTYPE_RESCHEDULE,33,1)

     notice.SendTo = MailingList
     Call notice.Send(False)
     Messagebox "The invitees have been notified that the appointment has changed.",0,"Status"

     Exit Sub
ErrorRoutine:
     Messagebox Error & " (RescheduleAppointment)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:CancelAppointment:1:8
Sub CancelAppointment
    *This routine is called whenever the Chair manually cancels an appointment
    *A Cancellation notice is sent to the room, resources, and invitees
    *The $BusyPriority item is modified to tell the FreeTime system we are no longer busy
     1 = Busy, 2 = Not busy
%END REM

     On Error Resume Next

'First, take care of cancelling any rooms/resrouces the user may have invited
'if this is a repeating meeting, process every instance that we should
     If (note.HasItem("tmpRescheduleWhich")) Then
          Call ProcessRepeatingResources(note.tmpRescheduleWhich(0),ORS_MSGTYPE_CANCEL,ORS_STATE_RESOURCE)
          Call ProcessRepeatingResources(note.tmpRescheduleWhich(0),ORS_MSGTYPE_CANCEL,ORS_STATE_ROOM)
     Else
'cancel the room and resource if need be
          If (note.RequiredResources(0) <> "") Then Call CancelResources(ORS_STATE_RESOURCE,note)
          If (note.RoomRequired(0) = "1") And (note.Room(0) <> "") Then Call CancelResources(ORS_STATE_ROOM,note)
     End If

     On Error Goto ErrorRoutine
'we need to get the attendees who should be notified of the cancellation
     Call GetMailingList

'make sure we have people to notify
     If (MailingList(0) <> "") Then
'we don't exit since we need to remove items from the note
'create the notice
          Call CreateNoticeDocument("Cancelled -",ORS_MSGTYPE_CANCEL,81,1)

          notice.SendTo = MailingList
          Call notice.Send(False)
          Messagebox "The invitees have been notified that this appointment has been cancelled.",0,"Status"
     End If
'update the appointment document
     note.RemoveItem("CalendarDateTime")
     Call note.ReplaceItemValue("$BusyPriority","2")
     note.NoticeType = ORS_MSGTYPE_CANCEL
     Call note.RemoveItem("OrgTable")
'if this document had an alarm, remove it from the alarms folder
     If (note.HasItem("$Alarm")) Then Call note.RemoveFromFolder("$Alarms")

     Exit Sub
ErrorRoutine:
     Messagebox Error & " (CancelAppointment)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:ConfirmAppointment:1:8
Sub ConfirmAppointment
    *This routine sends out a confirmation notice to all invitees
    *If this is a repeating meeting, then the people invited to that instance of the
     meeting being confirmed is included in the confirmation
    *If this is not a repeating meeting, then that status of all invitees is included
     in the confirmation notice
%END REM

     On Error Goto ErrorRoutine

'we need to get a list of attendees to send this to
     Call GetMailingList

'make sure we have people to notify
     If (MailingList(0) = "") Then Exit Sub

     Call CreateNoticeDocument("Confirmed -",ORS_MSGTYPE_CONFIRMATION,10,1)

'if we are confirming a NON-repeating meeting, do the following
     If Not(note.HasItem("OrgRepeat")) Then
          Dim rtitem  As New NotesRichTextItem(notice,"StatusUpdate")

'add all of the invitee status's to the rich text item
          For i = 0 To InviteeCounter-1
               Set nam = New NotesName(InviteeList(i).InviteeName)
               Select Case InviteeList(i).Status
               Case ORS_MSGTYPE_ACCEPT,ORS_MSGTYPE_PENCILIN
                    Call rtitem.AppendText(nam.Common & " -> Accepted")
               Case ORS_MSGTYPE_REJECT
                    Call rtitem.AppendText(nam.Common & " -> Declined")
               Case ORS_MSGTYPE_COUNTER
                    Call rtitem.AppendText(nam.Common & " -> Counter Proposed")
               Case ORS_MSGTYPE_DELEGATING
                    Call rtitem.AppendText(nam.Common & " -> Delegated to " & InviteeList(i).Delegee)
               Case ORG_STATUS_WAITING
                    Call rtitem.AppendText(nam.Common & " -> No Response")
               End Select
               Call rtitem.AddNewLine(1)
          Next
'include the people who were uninvited
          If (note.Uninvited(0) <> "") Then
               Call rtitem.AddNewLine(1)
               Call rtitem.AppendText("Uninvited:")
               Call rtitem.AddNewLine(1)
               Uninvited = note.Uninvited
               For x = 0 To Ubound(Uninvited)
                    Call rtitem.AppendText(Uninvited(x))
                    Call rtitem.AddNewLine(1)
               Next
          End If
     End If
     notice.SendTo = MailingList
     Call notice.Send(False)
     Messagebox "A confirmation notice has been sent to the invitees.",0,"Status"
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (ConfirmAppointment)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:RemoveInvitee:1:8
Sub RemoveInvitee
    *This routine is called from SelectUserToRemove
    *This routine sends out a StatusUpdate message to the specified invitees
        with the OrgStatus item set to ORS_STATUS_REMOVED
    *The specified invitees are then appended to an item called Uninvited
%END REM
     Dim FullUserNames() As String
     Dim nIndex As Integer

     On Error Goto ErrorRoutine

     Call CreateNoticeDocument("You are no longer required to attend this appointment -",ORS_MSGTYPE_STATUSUPDATE,157,1)

     notice.OrgStatus = ORS_STATUS_REMOVED
'for each person in the tmpUninvited field, get their full mail address
     PeopleToSend = note.tmpPeopleSelected
     Redim FullUserNames(Ubound(PeopleToSend))
     For i = 0 To Ubound(PeopleToSend)
          nIndex = FindInvitee(PeopleToSend(i))
          If (nIndex = -1) Then
               FullUserNames(i) = PeopleToSend(i)
          Else
               If (InviteeList(nIndex).Domain <> "") Then
                    FullUserNames(i) = InviteeList(nIndex).InviteeName & "@" & InviteeList(nIndex).Domain
               Else
                    FullUserNames(i) = InviteeList(nIndex).InviteeName
               End If
               InviteeList(nIndex).Status = ORS_STATUS_REMOVED
               InviteeList(nIndex).KeepPosted = ""
          End If
     Next

     notice.SendTo = FullUserNames
     Call notice.Send(False)
     Messagebox "An Uninvite notice has been sent to the people selected.",0,"Status"
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (RemoveInvitee)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:BuildAttendeeLists:1:8
Sub BuildAttendeeLists(mode As Integer)
 *This routine is called from SendInvitation ONLY!
 *It is called twice
  First time - remove duplicate entries
  Second time - update names
%END REM

     Dim vSendToNames As Variant
     Dim vCopyToNames As Variant
     Dim vNewRequiredNames() As Variant
     Dim vNewOptionalNames() As Variant
     Dim bInviteeExists As Integer
     Dim counter As Integer
     Dim newcounter As Integer
     Dim sCanonicalName As String
     Dim sDomainName As String
     Dim sNewNames() As String

     On Error Goto ErrorRoutine

'get the sendto and copyto field values
     vSendToNames = note.SendTo
     vCopyToNames = note.CopyTo

'determine why we are being called
     Select Case mode
     Case 1    'first time
'we need to look for duplicate entries only if people have been invited
'check RequiredAttendees
          If (vSendToNames(0) <> "") Then
'initialize some variables
               Redim sNewNames(Ubound(vSendToNames))
               newcounter = 0
               If (Isarray(OriginalRequired)) Then
'required invitees already exist; copy them into a local variable
                    Redim vNewRequiredNames(Ubound(OriginalRequired) + Ubound(vSendToNames)+1)
                    Forall names In OriginalRequired
                         vNewRequiredNames(newcounter) = names
                         newcounter = newcounter+1
                    End Forall
               Else
                    Redim vNewRequiredNames(Ubound(vSendToNames))
               End If
               counter = 0
               Forall names In vSendToNames
                    Call GetNameComponents(Cstr(names),sCanonicalName,sDomainName)
                    bInviteeExists = FindInvitee(sCanonicalName)
'if the invitee wasn't found, then add them keep them in the list and add them to the table
                    If (bInviteeExists = -1) Then
                         sNewNames(counter) = names
                         vNewRequiredNames(newcounter) = names
                         Call AddInviteeToInviteeTable(Cstr(names),"")
                         counter = counter + 1
                         newcounter = newcounter + 1
                    End If
               End Forall
               note.SendTo = sNewNames
'we have to update the RequiredAttendees item so invitees can see who else has been invited
               note.RequiredAttendees = vNewRequiredNames
          End If
'check OptionalAttendees
          If (vCopyToNames(0) <> "") Then
'initialize some variables
               newcounter = 0
               Redim sNewNames(Ubound(vCopyToNames))
               If (Isarray(OriginalOptional)) Then
'optional invitees already exist; copy them into a local variable
                    Redim vNewOptionalNames(Ubound(OriginalOptional) + Ubound(vCopyToNames)+1)
                    Forall names In OriginalOptional
                         vNewOptionalNames(newcounter) = names
                         newcounter = newcounter+1
                    End Forall
               Else
                    Redim vNewOptionalNames(Ubound(vCopyToNames))
               End If
               counter = 0
               Forall names In vCopyToNames
                    Call GetNameComponents(Cstr(names),sCanonicalName,sDomainName)
                    bInviteeExists = FindInvitee(sCanonicalName)
'if the invitee wasn't found, then add them keep them in the list and add them to the table
                    If (bInviteeExists = -1) Then
                         sNewNames(counter) = names
                         vNewOptionalNames(newcounter) = names
                         Call AddInviteeToInviteeTable(Cstr(names),"")
                         counter = counter + 1
                         newcounter = newcounter + 1
                    End If
               End Forall
               note.CopyTo = sNewNames
               note.OptionalAttendees = vNewOptionalNames
          End If
     Case 2     'second & final time being called
'we need to update the RequiredAttendees and OptionalAttendees fields
'first, update the RequiredAttendees item only if there are values in the SendTo item
          If (vSendToNames(0) <> "") Then
'intialize variables
               newcounter = 0
               If (Isarray(OriginalRequired)) Then
'required invitees already exist; copy them into a local variable
                    If (OriginalRequired(0) = "") And (Ubound(OriginalRequired) = 0) Then
                         Redim vNewRequiredNames(Ubound(vSendToNames))
                    Else
                         Redim vNewRequiredNames(Ubound(OriginalRequired) + Ubound(vSendToNames)+1)
                         Forall names In OriginalRequired
                              If (names <> "") Then
                                   vNewRequiredNames(newcounter) = names
                                   newcounter = newcounter+1
                              End If
                         End Forall
                    End If
               Else
                    Redim vNewRequiredNames(Ubound(vSendToNames))
               End If
'add the sendto names
               Forall names In vSendToNames
                    If (names <> "") Then
                         vNewRequiredNames(newcounter) = names
                         newcounter = newcounter + 1
                    End If
               End Forall
               note.RequiredAttendees = vNewRequiredNames
          End If
'update the OptionalAttendees item only if there are values in the CopyTo item
          If (vCopyToNames(0) <> "") Then
'intialize variables
               newcounter = 0
               If (Isarray(OriginalOptional)) Then
'optional invitees already exist; copy them into a local variable
                    If (OriginalOptional(0) = "") And (Ubound(OriginalOptional) = 0) Then
                         Redim vNewOptionalNames(Ubound(vCopyToNames))
                    Else
                         Redim vNewOptionalNames(Ubound(OriginalOptional) + Ubound(vCopyToNames)+1)
                         Forall names In OriginalOptional
                              If (names <> "") Then
                                   vNewOptionalNames(newcounter) = names
                                   newcounter = newcounter+1
                              End If
                         End Forall
                    End If
               Else
                    Redim vNewOptionalNames(Ubound(vCopyToNames))
               End If
'add the copyto names
               Forall names In vCopyToNames
                    If (names <> "") Then
                         vNewOptionalNames(newcounter) = names
                         newcounter = newcounter + 1
                    End If
               End Forall
               note.OptionalAttendees = vNewOptionalNames
          End If
     Case Else
     End Select
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (BuildAttendeeList)"
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:SelectUserToRemove:1:8
Sub SelectUserToRemove
    *This routine is called whenever the user selects to remove people from a meeting
    *This routine displays a dialog box that allows the user to select those people
     that should be removed
    *If people were selected, this routine calls RemoveInvitee to send out StatusUpdate notices
%END REM

     On Error Goto ErrorRoutine

'first, get the status of the attendees
     If Not(HasInviteeInfo) Then Call GetInviteeStatus(note,False)
     If Not(HasBeenProcessed) Then Call ProcessInviteeTable(note)

'get the list of people who can be uninvited
     note.tmpAccepted = UsersAccepted
     note.tmpDeclined = UsersDeclined
     note.tmpDelegated = UsersDelegated
     note.tmpCountered = UsersCountered
     note.tmpWaiting = UsersWaiting
     note.tmpHeader = "Select the people you want to remove:"
     tmpPeopleList = Evaluate("@Trim(@Replace(tmpAccepted:tmpDeclined:tmpDelegated:tmpCountered:tmpWaiting;Uninvited;""""))",note)
     note.tmpPeopleList = tmpPeopleList

'display the dialog so the user can select people
     If (ws.DialogBox("(PeopleListDlg)",True,True,False,False,False,False,"Remove Invitees") = True) Then
'the user has uninvited people from the meeting
          If (note.HasItem("OrgRepeat")) Then
               Messagebox "The invitees selected will be removed for the current repeat instance only.",0,"Status"
               note.tmpRescheduleWhich = "0"
               note.RescheduleWhich = "0"
          End If
'we can only remove people from the current repeat instance
'append the latest uninvited people to the uninvited field
          tmpUninvitedList = Evaluate("@Trim(@Unique(Uninvited : tmpPeopleSelected))",note)
          note.Uninvited = tmpUninvitedList
          If(note.tmpPeopleSelected(0) <> "") Then Call RemoveInvitee
          Call uidoc.Save
          note.removeitem("tmpRescheduleWhich")
          note.RemoveItem("RescheduleWhich")
          Call MarkTempFields(note)
          Call note.Save(True,True,True)
     End If
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (SelectUserToRemove)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:ChangeStatus:1:8
Sub ChangeStatus
    *This routine is called whenever the user wants to require that an invitee attend a meeting
    *This routine displays a dialog box that allows the user to select those people
     that should be required to attend
    *This routine sends a StatusUpdate notice to the specified user with the OrgStatus item
       set to ORS_STATUS_ACCEPTED
%END REM
     Dim nIndex As Integer

     On Error Goto ErrorRoutine
'first, get the status of the attendees
     If Not(HasInviteeInfo) Then Call GetInviteeStatus(note,False)
     If Not(HasBeenProcessed) Then Call ProcessInviteeTable(note)

     note.tmpHeader = "Select the people you want to Accept:"

     note.tmpAccepted = UsersAccepted
     note.tmpDeclined = UsersDeclined
     note.tmpDelegated = UsersDelegated
     note.tmpCountered = UsersCountered
     note.tmpWaiting = UsersWaiting

     tmpPeopleList = Evaluate("@Trim(@Replace(tmpDeclined:tmpDelegated:tmpCountered:tmpWaiting;tmpAccepted:Uninvited;""""))",note)
     note.tmpPeopleList = tmpPeopleList
'clear out the tmpAction item
     note.tmpAction = ""
'display the dialog so the user can select people
     If (ws.DialogBox("(PeopleListDlg)",True,True,False,False,False,False,"Change Status") = True) Then
'the user has selected people
          tmpChangeList = note.tmpPeopleSelected
'for everyone selected, do the following
             If (tmpChangeList(0) <> "") Then
                  Forall cs In tmpChangeList
'create the change status notice and send it out
                          Call CreateNoticeDocument("You are required to attend this appointment - ",ORS_MSGTYPE_STATUSUPDATE,36,1)
                          notice.OrgStatus = ORS_STATUS_ACCEPTED
                    nIndex = FindInvitee(Cstr(cs))
                    If (nIndex = -1) Then
                         notice.SendTo = Cstr(cs)
                    Else
                         If (InviteeList(nIndex).Domain <> "") Then
                              notice.SendTo = InviteeList(nIndex).InviteeName & "@" & InviteeList(nIndex).Domain
                         Else
                              notice.SendTo = InviteeList(nIndex).InviteeName
                         End If
                         InviteeList(nIndex).Status = ORS_MSGTYPE_ACCEPT
                         InviteeList(nIndex).KeepPosted = "1"
                    End If
                    Call notice.Send(False)
'create the acceptance notice (as if it had come from the invitee)
                          Call CreateNoticeDocument("Accepted - ",ORS_MSGTYPE_ACCEPT,83,1)
'update specific fields
                          notice.Subject = "Accepted - " & notice.Topic(0)
                          notice.Principal = cs
                          notice.InviteeName = cs
                    If (nIndex > -1) Then
                         If (InviteeList(nIndex).Domain <> "") Then note.FromDomain = InviteeList(nIndex).Domain
                    End If
                    notice.Chair = Owner
                    notice.PostedDate = Now()
                          Call notice.Save(True,True,True)
                  End Forall
                  Messagebox "A Change Status notice has been sent to the people selected.",0,"Status"
             End If
     End If

     Exit Sub

ErrorRoutine:
     Messagebox Error & " (ChangeStatus)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:RollbackAppointment:1:8
Sub RollbackAppointment(BusyPriority As String)
    *This routine is called from SendInvitation for one of two reasons
     Either the uidoc.Send failed and we need to get the original values
     Or the uidoc.Send was successful and we are modifying the note/uidoc to be a meeting
    *This routine changes a meeting invitation notice back into an appointment document
%END REM

     note.Form = "Appointment"
     note.Subject = note.Topic
     note.CalendarDateTime = note.StartDateTime
     note.tmpOwner = Owner
     note.OrgTable = ORS_ITEM_CALENDAR
     tmpRequiredAttendees = Evaluate("@Trim(@Replace(RequiredAttendees;SendTo;""""))",note)
     tmpOptionalAttendees = Evaluate("@Trim(@Replace(OptionalAttendees;CopyTo;""""))",note)
     note.RequiredAttendees = tmpRequiredAttendees
     note.OptionalAttendees = tmpOptionalAttendees
     Call note.RemoveItem("MailOptions")
'we only add the $BusyName if this is not the repeat parent
     If Not(note.HasItem("RepeatIds")) Then Call note.ReplaceItemValue("$BusyName",Owner)
     Call note.ReplaceItemValue("$BusyPriority",BusyPriority)
     Call note.ReplaceItemValue("_ViewIcon",158)
     Call note.RemoveItem("Topic")
     Call note.RemoveItem("NoticeType")
     note.tmpAction = ""
End Sub
tmpAccepted
tmpDeclined
tmpDelegated
tmpCountered
tmpWaiting
Uninvited
    0S0E
Uninvited
tmpPeopleSelected
    5S6S
tmpDeclined
tmpDelegated
tmpCountered
tmpWaiting
tmpAccepted
Uninvited
    0S0E
RequiredAttendees
SendTo
    0S0E
OptionalAttendees
CopyTo
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "SharedWorkflowLibrary"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub CreateInviteeTable(pNote As NotesDocument)
Declare Sub IncreaseInviteeTable()
Declare Sub DecreaseInviteeTable()
Declare Sub GetNameComponents(pInviteeName As String,pRetCanonicalName As String,pRetDomain As String)
Declare Function FindInvitee(pInviteeName As String) As Integer
Declare Sub AddInviteeToInviteeTable(pInviteeName As String,pState As String)
Declare Sub GetInviteeResponseInfo(pNote As NotesDocument)
Declare Function CanUpdateInviteeInfo(Byval nIndex As Integer) As Integer
Declare Sub AddDelegeeToInviteeTable()
Declare Sub UpdateInviteeInfo(Byval nIndex As Integer)
Declare Sub AddInviteeResponseToInviteeTable()
Declare Sub BuildInviteeResponsesList(pNote As NotesDocument)
Declare Sub GetInviteeStatus(pNote As NotesDocument,Byval nForce As Integer)
Declare Sub ProcessInviteeTable(pNote As NotesDocument)
Declare Sub GetMailingList()
Declare Sub AcceptCounterProposal
Declare Sub DeclineCounterProposal
Declare Sub AddUninvitedToInviteeList()
Declare Function GetInviteeMailAddress(pName As String) As String
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim InviteeList() As InviteeTable
Dim InviteeResponseInfo As InviteeTable
Dim HasBeenProcessed As Integer
Dim HasInviteeInfo As Integer
Dim InviteeCounter As Integer
Dim InviteeMaxEntries As Integer
Dim UsersAccepted() As String
Dim UsersDeclined() As String
Dim UsersDelegated() As String
Dim UsersCountered() As String
Dim UsersWaiting() As String
Dim ResourcesReserved() As String
Dim ResourcesDeclined() As String
Dim ResourcesWaiting() As String
Dim Delegees() As String
Dim MailingList() As String
Dim NumKeepPosted As Integer
Dim UpdatedInvitees As Variant
Dim numAccepted As Integer
Dim numDeclined As Integer
Dim numDelegated As Integer
Dim numCountered As Integer
Dim numWaiting As Integer
Dim numResAccepted As Integer
Dim numResDeclined As Integer
Dim numResWaiting As Integer
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
'++LotusScript Development Environment:2:2:CreateInviteeTable:1:8
Sub CreateInviteeTable(pNote As NotesDocument)
     Dim RequiredAttendees As Variant
     Dim OptionalAttendees As Variant
     Dim Resources As Variant
     Dim Room As String

        InviteeMaxEntries = CS_INVITEE_INDEX
        InviteeCounter = 0
        HasInviteeInfo = False
        HasBeenProcessed = False

     Redim InviteeList(InviteeMaxEntries)

     RequiredAttendees = pNote.RequiredAttendees
     OptionalAttendees = pNote.OptionalAttendees
     Resources = pNote.RequiredResources
     Room = pNote.Room(0)

'initialize the invitee table to values that exist on the passed in note
     If (RequiredAttendees(0) <> "") Then
          Forall names In RequiredAttendees
               Call AddInviteeToInviteeTable(Cstr(names),"")
          End Forall
     End If
     If (OptionalAttendees(0) <> "") Then
          Forall names In OptionalAttendees
               Call AddInviteeToInviteeTable(Cstr(names),"")
          End Forall
     End If

     If (pNote.Uninvited(0) <> "") Then Call AddUninvitedToInviteeList

     If (Room <> "") Then Call AddInviteeToInviteeTable(Room,ORS_STATE_ROOM)

     If (Resources(0) <> "") Then
          Forall names In Resources
               Call AddInviteeToInviteeTable(Cstr(names),ORS_STATE_RESOURCE)
          End Forall
     End If
End Sub
'++LotusScript Development Environment:2:2:IncreaseInviteeTable:1:8
Sub IncreaseInviteeTable()

        InviteeMaxEntries = InviteeMaxEntries + CS_INVITEE_INDEX
     Redim Preserve InviteeList(InviteeMaxEntries)
End Sub
'++LotusScript Development Environment:2:2:DecreaseInviteeTable:1:8
Sub DecreaseInviteeTable()
        InviteeMaxEntries = InviteeCounter
     Redim Preserve InviteeList(InviteeMaxEntries)
End Sub
'++LotusScript Development Environment:2:2:GetNameComponents:1:8
Sub GetNameComponents(pInviteeName As String,pRetCanonicalName As String,pRetDomain As String)

     Dim pos As Integer


     pos = Instr(pInviteeName,"@")

     If(pos > 0) Then
          Set nam = New NotesName(Left$(pInviteeName,pos-1))
          pRetCanonicalName = nam.Canonical
          pRetDomain = Right$(pInviteeName,Len(pInviteeName)-pos)
     Else
          Set nam = New NotesName(pInviteeName)
          pRetCanonicalName = nam.Canonical
          pRetDomain = ""
     End If
End Sub
'++LotusScript Development Environment:2:1:FindInvitee:1:8
Function FindInvitee(pInviteeName As String) As Integer
    *Given an InviteeTable and an invitee name find the index position
    *Returns -1 if the user cannot be found
%END REM
     Dim key As New NotesName(pInviteeName)
        Dim x As Integer

        For x = 0 To (InviteeCounter - 1)
          Set findname = New NotesName(InviteeList(x).InviteeName)
'do a canonical name comparison
          If Lcase(key.Canonical) = Lcase(findname.Canonical) Then
                        FindInvitee = x
               Exit Function
'do a common name comparison
          Elseif Lcase(key.Common) = Lcase(findname.Common) Then
               FindInvitee = x
               Exit Function
                End If
        Next

        FindInvitee = -1
End Function
'++LotusScript Development Environment:2:2:AddInviteeToInviteeTable:1:8
Sub AddInviteeToInviteeTable(pInviteeName As String,pState As String)
    *Adds an existing invitee to the invitee table
%END REM
     Dim CanonicalName As String
     Dim domain As String


    'see if we need to increase the invitee table
        If(InviteeCounter = InviteeMaxEntries) Then Call IncreaseInviteeTable()

    'get the canonical and domain name from the inviteename
        Call GetNameComponents(pInviteeName,CanonicalName,Domain)

     InviteeList(InviteeCounter).InviteeName = CanonicalName
     InviteeList(InviteeCounter).Status = ORG_STATUS_WAITING
     InviteeList(InviteeCounter).State = pState
     InviteeList(InviteeCounter).KeepPosted = "1"

     If(Domain <> "") Then InviteeList(InviteeCounter).Domain = Domain

     NumKeepPosted = NumKeepPosted + 1
     InviteeCounter = InviteeCounter + 1
     If (pState <> "") Then
          numResWaiting = numResWaiting + 1
     Else
          numWaiting = numWaiting + 1
     End If
End Sub
'++LotusScript Development Environment:2:2:GetInviteeResponseInfo:1:8
Sub GetInviteeResponseInfo(pNote As NotesDocument)

        InviteeResponseInfo.CreationDate = pNote.Created
        InviteeResponseInfo.SequenceNum = pNote.SequenceNum(0)
        InviteeResponseInfo.InviteeName = pNote.Principal(0)
        If pNote.HasItem("FromDomain") Then
                InviteeResponseInfo.Domain = pNote.FromDomain(0)
        Else
                InviteeResponseInfo.Domain = ""
        End If

        If pNote.HasItem("OrgState") Then
                InviteeResponseInfo.State = pNote.OrgState(0)
        Else
                InviteeResponseInfo.State = ""
        End If

     InviteeResponseInfo.Status = pNote.NoticeType(0)

     Select Case InviteeResponseInfo.Status
     Case ORS_MSGTYPE_ACCEPT,ORS_MSGTYPE_PENCILIN
          InviteeResponseInfo.KeepPosted = "1"
     Case ORS_MSGTYPE_REJECT
          InviteeResponseInfo.KeepPosted = ""
     Case ORS_MSGTYPE_COUNTER
          InviteeResponseInfo.KeepPosted = "1"
     Case ORS_MSGTYPE_DELEGATING
          InviteeResponseInfo.KeepPosted = ""
          InviteeResponseInfo.Delegee = pNote.Delegee(0)
          Call AddDelegeeToInviteeTable
     End Select
End Sub
'++LotusScript Development Environment:2:1:CanUpdateInviteeInfo:1:8
Function CanUpdateInviteeInfo(Byval nIndex As Integer) As Integer
    *Determines if InviteeRepsonseInfo should be updated in InviteeTable
%END REM

'if the sequencenum is greater than the existing one, we can add them
     If (InviteeList(nIndex).Status = ORS_STATUS_REMOVED) Then
          CanUpdateInviteeInfo = False
          Exit Function
     End If
     If (InviteeResponseInfo.SequenceNum > InviteeList(nIndex).SequenceNum) Then
                CanUpdateInviteeInfo = True
                Exit Function
     Elseif (InviteeResponseInfo.SequenceNum = InviteeList(nIndex).SequenceNum) Then
'the SequeceNum items are equal; compare creation date
          If (InviteeResponseInfo.CreationDate > InviteeList(nIndex).CreationDate.LSLocalTime) Then
                        CanUpdateInviteeInfo = True
                        Exit Function
                Else
                        CanUpdateInviteeInfo = False
                        Exit Function
                End If
        End If

'if we made it this far, then we can't update the inviteetable
        CanUpdateInviteeInfo = False
End Function
'++LotusScript Development Environment:2:2:AddDelegeeToInviteeTable:1:8
Sub AddDelegeeToInviteeTable()

     Dim CanonicalName As String
     Dim Domain As String
        Dim nIndex As Integer

'get the name components
        Call GetNameComponents(InviteeResponseInfo.Delegee,CanonicalName,Domain)

'set the domain
        If (Domain = "") Then
                If(InviteeResponseInfo.Domain <> "") Then Domain = InviteeResponseInfo.Domain
        End If

     nIndex = FindInvitee(CanonicalName)

        If (nIndex = -1) Then
'we didn't find the delegee -> this is the more likely case since we would only find the delegee
'if they had replied before we had received the delegation notice

'make sure we can add the delegee
                If (InviteeCounter = InviteeMaxEntries) Then Call IncreaseInviteeTable()
          Set InviteeList(InviteeCounter).CreationDate = New NotesDateTime(InviteeResponseInfo.CreationDate)
          InviteeList(InviteeCounter).SequenceNum = InviteeResponseInfo.SequenceNum
          InviteeList(InviteeCounter).InviteeName = CanonicalName
          InviteeList(InviteeCounter).Domain = Domain
          InviteeList(InviteeCounter).Status = ORG_STATUS_WAITING
          InviteeList(InviteeCounter).State = ""
          InviteeList(InviteeCounter).Delegee = ""
          InviteeList(InviteeCounter).KeepPosted = "1"
          InviteeCounter = InviteeCounter + 1
     Else
'the delegee already exists in the table
'make sure we can update their info
                If (CanUpdateInviteeInfo(nIndex)) Then
               Set InviteeTable.CreationDate(nIndex) = New NotesDateTime(InviteeResponseInfo.CreationDate)
               InviteeList(nIndex).SequenceNum = InviteeResponseInfo.SequenceNum
               InviteeList(nIndex).InviteeName = CanonicalName
               InviteeList(nIndex).Domain = Domain
               InviteeList(nIndex).Status = InviteeResponseInfo.Status
               InviteeList(nIndex).State = ""
               InviteeList(nIndex).Delegee = ""
               InviteeList(nIndex).KeepPosted = "1"
          End If
     End If
End Sub
'++LotusScript Development Environment:2:2:UpdateInviteeInfo:1:8
Sub UpdateInviteeInfo(Byval nIndex As Integer)
     Dim IsPerson As Integer

     Set InviteeList(nINdex).CreationDate = New NotesDateTime(InviteeResponseInfo.CreationDate)
     InviteeList(nIndex).SequenceNum = InviteeResponseInfo.SequenceNum
     InviteeList(nIndex).InviteeName = InviteeResponseInfo.InviteeName
     InviteeList(nIndex).Domain = InviteeResponseInfo.Domain
     InviteeList(nIndex).Status = InviteeResponseInfo.Status
     InviteeList(nIndex).State = InviteeResponseInfo.State
     InviteeList(nIndex).Delegee = InviteeResponseInfo.Delegee
     InviteeList(nIndex).KeepPosted = InviteeResponseInfo.KeepPosted
     If (InviteeResponseInfo.KeepPosted = "1") Then NumKeepPosted = NumKeepPosted + 1

     If (InviteeResponseInfo.State <> "") Then
          IsPerson  = False
     Else
          IsPerson = True
     End If

     Select Case InviteeResponseInfo.Status
     Case ORS_MSGTYPE_ACCEPT,ORS_MSGTYPE_PENCILIN
          If (IsPerson) Then
               numAccepted = numAccepted+1
          Else
               numResAccepted = numResAccepted + 1
          End If
     Case ORS_MSGTYPE_REJECT
          If (IsPerson) Then
               numDeclined = numDeclined+1
          Else
               numResDeclined = numResDeclined + 1
          End If
     Case ORS_MSGTYPE_COUNTER
          numCountered = numCountered+1
     Case ORS_MSGTYPE_DELEGATING
          numDelegated = numDelegated+1
     Case ORG_STATUS_WAITING
          If (IsPerson) Then
               numWaiting = numWaiting + 1
          Else
               numResWaiting = numResWaiting + 1
          End If
     End Select
End Sub
'++LotusScript Development Environment:2:2:AddInviteeResponseToInviteeTable:1:8
Sub AddInviteeResponseToInviteeTable()

     If (InviteeCounter = InviteeMaxEntries) Then Call IncreaseInviteeTable()
           Call UpdateInviteeInfo(InviteeCounter)
           InviteeCounter = InviteeCounter + 1
End Sub
'++LotusScript Development Environment:2:2:BuildInviteeResponsesList:1:8
Sub BuildInviteeResponsesList(pNote As NotesDocument)
    *Gets the most recent reply from an invitee
%END REM

        Dim responses As NotesDocumentCollection
        Dim nIndex As Integer
        Dim reply As NotesDocument

'first, get a collection of responses to process
        Set responses = pNote.Responses

        If(responses.Count = 0) Then Exit Sub

        Set reply = responses.GetFirstDocument()

        While Not(reply Is Nothing)
                If(reply.Form(0) = "Notice") Then
'get the response items
               Call GetInviteeResponseInfo(reply)
'see if the invitee exists or not
               nIndex = FindInvitee(InviteeResponseInfo.InviteeName)

                        If(nIndex = -1) Then
'the user was not found, so we need to add them
                                Call AddInviteeResponseToInviteeTable()
                        Else
'the user was found; update their info if we can
                    If (CanUpdateInviteeInfo(nIndex)) Then Call UpdateInviteeInfo(nIndex)
                        End If
                End If
'get the next reply
                Set reply = responses.GetNextDocument(reply)
        Wend
End Sub
'++LotusScript Development Environment:2:2:GetInviteeStatus:1:8
Sub GetInviteeStatus(pNote As NotesDocument,Byval nForce As Integer)
    *This routine will build the invitee response table, and then fill global array values
        with the result
    *If the table has already been built by a different function and nForce is not True
        then the cached table will be returned
%END REM

        If (nForce) Then
'we want to update the table regardless of the state
          Call BuildInviteeResponsesList(pNote)
                HasInviteeInfo = True
'only build the table if it isn't cached
'it would be cached if a different calling function already built the table
        Elseif Not(HasInviteeInfo) Then
          Call BuildInviteeResponsesList(pNote)
                HasInviteeInfo = True
        Else
'the table is already uptodate; exit this function
                Exit Sub
        End If

End Sub
'++LotusScript Development Environment:2:2:ProcessInviteeTable:1:8
Sub ProcessInviteeTable(pNote As NotesDocument)

'now that we've built the table, iterate through it and fill in the various items
        Redim UsersAccepted(numAccepted)
        Redim UsersDeclined(numDeclined)
        Redim UsersDelegated(numDelegated)
     Redim Delegees(numDelegated)
     Redim UsersCountered(numCountered)
        Redim UsersWaiting(numWaiting)
     Redim ResourcesReserved(numResAccepted)
        Redim ResourcesDeclined(numResDeclined)
        Redim ResourcesWaiting(numResWaiting)

        numAccepted = 0
        numDeclined = 0
        numDelegated = 0
        numCountered = 0
        numWaiting = 0
     numResAccepted = 0
        numResDeclined = 0
        numResWaiting = 0

        Dim x As Integer

        For x = 0 To (InviteeCounter - 1)

          Select Case InviteeList(x).Status
          Case ORS_MSGTYPE_ACCEPT,ORS_MSGTYPE_PENCILIN
               If (InviteeList(x).SequenceNum < pNote.SequenceNum(0)) Then
'if this is a person, then we are still waiting to here back from them
                    If(InviteeList(x).State = "") Then
                         UsersWaiting(numWaiting) = InviteeList(x).InviteeName
                         numWaiting = numWaiting + 1
                    Else
'this is a room/resource; we are still waiting to here back from them
                         ResourcesWaiting(numResWaiting) = InviteeList(x).InviteeName
                         numResWaiting = numResWaiting + 1
                                End If
                        Else
                    If(InviteeList(x).State <> "") Then
'this is a room or resource; see if it has been removed
                         If Not(IsRemoved(InviteeList(x).InviteeName,InviteeList(x).State)) Then
                              ResourcesReserved(numResAccepted) = InviteeList(x).InviteeName
                              numResAccepted = numResAccepted + 1
                                        End If
                                Else
'this is a person
                         UsersAccepted(numAccepted) = InviteeList(x).InviteeName
                                        numAccepted = numAccepted+1
                                End If
                        End If
                Case ORS_MSGTYPE_REJECT
               If(InviteeList(x).State <> "") Then
'if this is a room or resource, see if it has been removed
                    If Not(IsRemoved(InviteeList(x).InviteeName,InviteeList(x).State)) Then
'if the sequencenum of the response is < pNote, then the resource has not responded
                         If (InviteeList(x).SequenceNum < pNote.SequenceNum(0)) Then
                              ResourcesWaiting(numResWaiting) = InviteeList(x).InviteeName
                              numResWaiting = numResWaiting + 1
                         Else
                              ResourcesDeclined(numResDeclined) = InviteeList(x).InviteeName
                                             numResDeclined = numResDeclined + 1
                         End If
                    End If
                        Else
'this is a person
                    UsersDeclined(numDeclined) = InviteeList(x).InviteeName
                    numDeclined = numDeclined+1
                        End If
          Case ORS_MSGTYPE_COUNTER
               If (InviteeList(x).SequenceNum < pNote.SequenceNum(0)) Then
                    UsersWaiting(numWaiting) = InviteeList(x).InviteeName
                                   numWaiting = numWaiting + 1
               Else
'this is a person -> Resources cannot CounterPropose!!!
                    UsersCountered(numCountered) = InviteeList(x).InviteeName
                                numCountered = numCountered+1
                        End If
                Case ORS_MSGTYPE_DELEGATING
'this is a person -> Resources cannot Delegate!!!
               UsersDelegated(numDelegated) = InviteeList(x).InviteeName
               Delegees(numDelegated) = InviteeList(x).Delegee
               numDelegated = numDelegated+1
          Case ORG_STATUS_WAITING
'we didn't get any reply from this invitee
               If(InviteeList(x).State <> "") Then
'this is a resource
                    ResourcesWaiting(numResWaiting) = InviteeList(x).InviteeName
                                numResWaiting = numResWaiting + 1
                        Else
'this is a person
                    UsersWaiting(numWaiting) = InviteeList(x).InviteeName
                                numWaiting = numWaiting + 1
               End If
          End Select
        Next
        HasBeenProcessed = True
End Sub
'++LotusScript Development Environment:2:2:GetMailingList:1:8
Sub GetMailingList()
    *Gets the latest list of people who should receive an update
        Reschedule,Cancel,Confirmation
%END REM
        Dim x,counter As Integer

'if this is a Repeating Meeting, we only need to get the invitees of the parent document
        If (note.HasItem("OrgRepeat")) Then
'if this hasn't been cached, then we need to get both the parent and this instance's responses
          If Not(HasInviteeInfo) Then
                        Call GetInviteeStatus(ParentNote,False)
                        Call GetInviteeStatus(Note,True)
                End If
     Else
                Call GetInviteeStatus(note,False)
     End If

'anyone who has accepted, countered, or is waiting, we need to send them the notice
     If (numKeepPosted = 0) Then
          Redim MailingList(0)
          MailingList(0) = ""
          Exit Sub
     End If

     Redim MailingList(numKeepPosted-1)

     For x = 0 To (InviteeCounter-1)
'make sure we have a person; rooms and resources are handled separately
          If (InviteeList(x).State = "") Then
               If (InviteeList(x).KeepPosted = "1") Then
                    If(InviteeList(x).Domain <> "") Then
                         MailingList(counter) = InviteeList(x).InviteeName & "@" & InviteeList(x).Domain
                                Else
                         MailingList(counter) = InviteeList(x).InviteeName
                                End If
                                counter = counter + 1
               End If
          End If
     Next
End Sub
'++LotusScript Development Environment:2:2:AcceptCounterProposal:1:8
Sub AcceptCounterProposal
 *This routine is called whenever the chair accepts a counter proposal
 *This routine increments the SequenceNum item and sends Reschedule notices
  to all people, room, and resources
 *The parentnote is updated to reflect the changes, since the current note object is the
  notice document and not the chair's meeting document
%END REM

     Dim StartDateTime As Variant
     Dim EndDateTime As Variant
     Dim NewRoom As String
     Dim OldRoom As String


     On Error Resume Next

     Set parentnote = db.GetDocumentByUNID(note.ParentDocumentUNID)
'make sure we have a parentnote object; if we don't, then exit this routine
     If (parentnote Is Nothing) Then Exit Sub

     Set trdr = session.CreateDateRange

     trdr.Text = uidoc.FieldGetText("NewTimeRange")

     Set startdt = New NotesDateTime(uidoc.FieldGetText("NewDate") & " " & trdr.StartDateTime.TimeOnly)
     Set enddt = New NotesDateTime(uidoc.FieldGetText("NewDate") & " " & trdr.EndDateTime.TimeOnly)

     Call CreateNoticeDocument("",ORS_MSGTYPE_RESCHEDULE,33,1)

'add the items specific to the reschedule; this will overwrite items already set be the CreateNoticeDocument routine
     Set notice.StartDateTime = startdt
     Set notice.EndDateTime = enddt
     Set notice.StartDate =startdt

     NewRoom = note.NewRoom(0)
     OldRoom = parentnote.Room(0)

'if the new room has a value, use it
     If (NewRoom <> "") Then
          notice.Subject = "Reschedule- " & note.Topic(0) & " (" & GetSubjectText(startdt.LSLocalTime) & " in " & NewRoom & ")"
          parentnote.OriginalRoom = OldRoom
          notice.Room = NewRoom
'if the old room has a value, use it
     Elseif (OldRoom <> "") Then
          notice.Subject = "Reschedule- "& note.Topic(0) & " (" & GetSubjectText(startdt.LSLocalTime) & " in " & OldRoom & ")"
          notice.Room = OldRoom
     Else
          notice.Subject = "Reschedule- " & note.Topic(0) & " (" & GetSubjectText(startdt.LSLocalTime) & ")"
     End If

     notice.Topic = note.Topic
     notice.Chair = Owner

'we need to add the correct attendees to the sendto item

     Call CreateInviteeTable(parentnote)

     Call GetInviteeStatus(parentnote,False)
     Call ProcessInviteeTable(parentnote)
     Call GetMailingList

'make sure we have a valid mailing list -> we should but we need to make sure just in case
     If (MailingList(0) = "") Then Exit Sub
     notice.SendTo = MailingList

'call the routine that updates the parentnote with the appropriate values
     Call UpdateOriginalInvitation(parentnote)

     notice.SequenceNum = parentnote.SequenceNum(0)
     Call notice.Send(False)
     Messagebox "The invitees have been notified of the change.",0,"Status"

'see if the time is changing; if the time is changing, then we need to reschedule resources
     tmpResourcesInvited = parentnote.RequiredResources
     If (tmpResourcesInvited(0) <> "") Then
          Forall Resources In tmpResourcesInvited
               Call CreateResourceNotice(ORS_MSGTYPE_RESCHEDULE,ORS_STATE_RESOURCE,Cstr(Resources),parentnote)
               notice.StartDateTime = parentnote.StartDateTime
               notice.EndDateTime = parentnote.EndDateTime
               notice.StartDate = parentnote.StartDate
               notice.TimeRange = parentnote.TimeRange
               Call notice.Send(False)
          End Forall
     End If

'reschedule the room if need be
     If (parentnote.RoomRequired(0) = "1") Then
          If (NewRoom <> "") Then
               Call CreateResourceNotice(ORS_MSGTYPE_RESCHEDULE,ORS_STATE_ROOM,NewRoom,parentnote)
          Else
               Call CreateResourceNotice(ORS_MSGTYPE_RESCHEDULE,ORS_STATE_ROOM,OldRoom,parentnote)
          End If
          notice.StartDateTime = parentnote.StartDateTime
          notice.EndDateTime = parentnote.EndDateTime
          notice.StartDate = parentnote.StartDate
          notice.TimeRange = parentnote.TimeRange
          Call notice.Send(False)
     End If

     Exit Sub

ErrorRoutine:
     Messagebox Error & " (AcceptCounterProposal)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:DeclineCounterProposal:1:8
Sub DeclineCounterProposal
 *This routine is called when the Chair declines a counter proposal
 *A notice is sent back to the invitee informing them of the chair's decline
%END REM

     On Error Goto ErrorRoutine

     Call CreateNoticeDocument("",ORS_MSGTYPE_COUNTERREJECT,38,1)
'we need to overwrite some items
     notice.Subject = "Proposed Change Declined - " & note.Topic(0)
     notice.Topic = note.Topic
     notice.Chair = Owner

     If (note.HasItem("FromDomain")) Then
          notice.sendTo= note.InviteeName(0) & " @ " & note.FromDomain(0)
     Else
          FromDomain = Evaluate("@Domain")
          notice.SendTo = note.InviteeName(0) & " @ " & FromDomain(0)
     End If
     Set nam = New NotesName(note.Inviteename(0))

     Call notice.Send(False)
     Messagebox "A notice has been sent informing " & nam.Common & " that the proposal for a time/location change has been declined.",0,"Status"
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (DeclineCounterProposal)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:AddUninvitedToInviteeList:1:8
Sub AddUninvitedToInviteeList()
     Dim nIndex As Integer
     Dim UninvitedList As Variant

'find this person in the InviteeTable
     UninvitedList = note.Uninvited

     Forall names In UninvitedList
          nIndex = FindInvitee(Cstr(names))
          InviteeList(nIndex).Status = ORS_STATUS_REMOVED
          InviteeList(nIndex).KeepPosted = ""
     End Forall
End Sub
'++LotusScript Development Environment:2:1:GetInviteeMailAddress:1:8
Function GetInviteeMailAddress(pName As String) As String

     Dim nIndex As Integer

     nIndex = FindInvitee(pName)

     If (nIndex = -1) Then
'the invitee was not found
          GetInviteeMailAddress = pName
          Exit Function
     End If

'see if there is a domain associated with this user
     If(InviteeList(nIndex).Domain <> "") Then
          GetInviteeMailAddress = InviteeList(nIndex).InviteeName & "@" & InviteeList(nIndex).Domain
     Else
          GetInviteeMailAddress = InviteeList(nIndex).InviteeName
     End If


End Function
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "ObjectVariables"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub EmailOpen
Declare Sub EmailModeChange
Declare Sub EmailSave(Continue)
Declare Sub EmailClose(Continue)
Declare Sub SaveDialog(SavedDoc)
Declare Sub CheckSecureMail
Declare Sub CreateOLEObject
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim newnote As NotesDocument
Dim DoNotClose As Variant
Dim ContinueSave As Variant
Dim TaskReply As Variant
Dim OLEObject As Variant
'++LotusScript Development Environment:2:2:EmailOpen:1:8
Sub EmailOpen

     If uidoc.InPreviewPane Then Exit Sub
     If note Is Nothing Then Call InstantiateObjectVariables

     If (note.HasItem("PostedDate") Or note.HasItem("DeliveredDate")) Then
          If uidoc.EditMode = False Then
               Exit Sub
          Else
'If this is a message that was written by you or your mail file, we need to remove any options fields
               If note.From(0) = Owner Or note.From(0) = session.UserName Or _
               note.Principal(0) = Owner Or note.Principal(0) = session.UserName Then
                    note.RemoveItem("MailOptions")
                    note.RemoveItem("SaveOptions")
                    If Not(note.HasItem("SecureMail")) Then CheckSecureMail
'If this is a message that was not written by you we do not present the mail dialog
'but we do want to force processing into QuerySave
               Else
                    note.MailOptions = "0"
                    note.SaveOptions = "1"
               End If
          End If
     Else
          uidoc.EditMode = True
     End If

     If uidoc.IsNewDoc Then
          NewDocument = True
          note.Principal = Owner
          CheckSecureMail
          EditType = session.GetEnvironmentString("MailStEd")
'EditType 1 = CreateStationery
          If EditType = "1" Then
               note.tmpAction = "SaveAsStationery"
               note.IsMailStationery = 1
               Call session.SetEnvironmentVar("MailStEd", "0")
               note.MailOptions = "0"
               note.SaveOptions = "1"
          Else
               If Len(EditType) > 1 Then
                    TaskReply = True
                    Call session.SetEnvironmentVar("MailStEd", "0")
                    note.SaveOptions = "1"
                    note.MailOptions = "1"
                    note.AssignState = 9
                    note.DueState = 9
                    Call note.ReplaceItemValue("_ViewIcon", 82)
               End If
          End If
     Else
          NewDocument = False
          If note.HasItem("IsMailStationery") Then
               EditType = session.GetEnvironmentString("MailStEd")
'EditType 2 = EditStationery
               If EditType = "2" Then
                    Call session.SetEnvironmentVar("MailStEd", "0")
                    note.MailOptions = "0"
                    note.SaveOptions = "1"
               Else
'Create a doc from Stationery
                    note.RemoveItem("IsMailStationery")
                    note.RemoveItem("MailStationeryName")
                    Call note.ReplaceItemValue("$VersionOpt", "6")
                    uidoc.GoToField("SendTo")
               End If
          Else
               EditType = session.GetEnvironmentString("MailStEd")
'EditType 5 = EditNewCopy
               If EditType = "5" Then
                    Call note.ReplaceItemValue("$VersionOpt", "6")
                    note.tmpAction = "ConvertNewDoc"
                    note.RemoveItem("PostedDate")
                    Call session.SetEnvironmentVar("MailStEd", "0")
                    uidoc.Reload
                    uidoc.Save
                    uidoc.Refresh
                    uidoc.RefreshHideFormulas
                    Exit Sub
               End If
          End If
     End If

     uidoc.Reload
     uidoc.RefreshHideFormulas

End Sub
'++LotusScript Development Environment:2:2:EmailModeChange:1:8
Sub EmailModeChange

     If note Is Nothing Then Call InstantiateObjectVariables

'If this is a message that was written by you or your mail file, we need to remove any options fields
     If note.From(0) = Owner Or note.From(0) = session.UserName Or _
     note.Principal(0) = Owner Or note.Principal(0) = session.UserName Then
          note.RemoveItem("MailOptions")
          note.RemoveItem("SaveOptions")
          If Not(note.HasItem("SecureMail")) Then CheckSecureMail
'If this is a message that was not written by you we do not present the mail dialog
'but we do want to force processing into QuerySave
     Else
          note.MailOptions = "0"
          note.RemoveItem("SaveOptions")
     End If

     If uidoc.EditMode Then uidoc.Reload

End Sub
'++LotusScript Development Environment:2:2:EmailSave:1:8
Sub EmailSave(Continue)

     DoNotClose = False

     If note Is Nothing Then Call InstantiateObjectVariables

     note.RemoveItem("MailOptions")
     note.RemoveItem("SaveOptions")

     Action = note.tmpAction(0)

     If note.HasItem("IsMailStationery") Then
          If Action <> "RenameStationery" Then
               Call SaveDialog("Stationery")
               If ContinueSave = IDCANCEL Then continue = False
               If ContinueSave <> IDYES Then
                    uidoc.reload
                    Exit Sub
               End If
          End If
     End If

     Select Case Action
     Case "SaveAsStationery"
          sName = Inputbox$("What would you like to call this Stationery?", "Save as Stationery", "-Untitled-")
          If sName = "" Then
               Continue = False
               note.RemoveItem("tmpAction")
               Exit Sub
          End If
          If NewDocument Then
               note.IsMailStationery = 1
               note.MailStationeryName = sName
               note.MailOptions = "0"
               note.SaveOptions = "1"
          Else
               note.SaveOptions = "0"
               Set newnote = New NotesDocument(db)
               Call note.CopyAllItems(newnote)
               ItemList = newnote.Items
               Forall i In ItemList
                    If Lcase(Left(i.Name, 3)) = "tmp" Then i.Remove
               End Forall
               newnote.IsMailStationery = 1
               newnote.MailStationeryName = sName
               newnote.Form = "Memo"
               newnote.RemoveItem("PostedDate")
               newnote.RemoveItem("DeliveredDate")
               newnote.Save True, True
               ws.ViewRefresh
          End If
          Messagebox "This Message has been saved as Stationery in your Drafts folder. A new message will be created every time you open this Stationery.", 0, "Save as Stationery"
          note.RemoveItem("tmpAction")
          Call uidoc.close
     Case "RenameStationery"
          MailStationeryName = note.MailStationeryName
          sName = Inputbox$("What would you like to call this Stationery?", "Save as Stationery", MailStationeryName(0))
          If sName = "" Then
               note.MailOptions = "0"
               note.RemoveItem("tmpAction")
               DoNotClose = True
               Continue = False
               Exit Sub
          End If
          note.MailStationeryName = sName
          note.MailOptions = "0"
          note.SaveOptions = "1"
     Case "SaveAsDraft", "SaveAndFile", "SendAndFile", "ConvertNewDoc"
          note.MailOptions = "0"
          note.SaveOptions = "1"
     Case "Send"
          note.MailOptions = "0"
          note.SaveOptions = "0"
     Case "Mailing"
'We do not want to do anything if mailing is in process (like from the Send button)
     Case "ConvertToTask"
          note.RemoveItem("DeliveredDate")
          note.RemoveItem("PostedDate")
          note.SendTo = ""
          note.CopyTo = ""
          note.SaveOptions ="1"
          note.MailOptions = "0"
          note.Form = "Task"
          note.AssignState = 0
          note.ExcludeFromView = "D"
          Call note.ReplaceItemValue("_ViewIcon", 168)
     Case Else
'If this is a message did not originate in this mailfile (it was sent here and therefore has DeliveredDate) we do not present the mail dialog
          If note.HasItem("DeliveredDate") Then
               note.MailOptions = "0"
               note.SaveOptions = "1"
               Call SaveDialog("Document")
               If ContinueSave = IDCANCEL Then continue = False
               If ContinueSave <> IDYES Then
                    uidoc.reload
                    Exit Sub
               End If
          End If
     End Select

     note.RemoveItem("tmpAction")
     If note.HasItem("$VersionOpt") Then Call note.ReplaceItemValue("$VersionOpt", "0")

     'If Not(note.HasItem("AuthorList")) Then Set item = New NotesItem(note, "AuthorList", note.From, AUTHORS)

     uidoc.Reload

End Sub
'++LotusScript Development Environment:2:2:EmailClose:1:8
Sub EmailClose(Continue)

     If DoNotClose Then
          DoNotClose = False
          Continue = False
'This backs out anything you did previously to MailOptions and SaveOptions and will force you back into QuerySave next time you try to exit
          note.RemoveItem("MailOptions")
          note.RemoveItem("SaveOptions")
          uidoc.reload
     End If

     If TaskReply Then
          Set namelookup = New NotesName(note.SendTo(0))
          Messagebox "Notification has been sent to " & namelookup.Common & ".", 0, "Task Message"
     End If

End Sub
'++LotusScript Development Environment:2:2:SaveDialog:1:8
Sub SaveDialog(SavedDoc)

     ContinueSave = Messagebox("Do you wish to save this " & SavedDoc & "?", MB_YESNOCANCEL, "Save " & SavedDoc)
     Select Case ContinueSave
     Case IDCANCEL
          note.MailOptions = "0"
'This will force us into querysave next time - this time it will set continue = false so no save will occur
          note.SaveOptions = "1"
     Case IDNO
          note.SaveOptions = "0"
     Case IDYES
          note.SaveOptions = "1"
     End Select

End Sub
'++LotusScript Development Environment:2:2:CheckSecureMail:1:8
Sub CheckSecureMail

'If SecureMail = 1 in notes.ini all mail gets Signed and Encrypted and the user is unable to override it
     note.SecureMail = Cstr(session.GetEnvironmentString("SecureMail", True))
     If note.SecureMail(0) = "1" Then
          Call note.ReplaceItemValue("Sign", "1")
          Call note.ReplaceItemValue("Encrypt", "1")
     End If

End Sub
'++LotusScript Development Environment:2:2:CreateOLEObject:1:8
Sub CreateOLEObject
     Dim sProgid As String

     On Error Resume Next

     sProgid = note.~$OLEObjProgId(0)

'if this is a new document, then we need to create the ole object
     If (NewDocument) Then
          note.OriginalEditor = sProgid
          uidoc.GotoField(note.~$OLEObjField(0))

          Call uidoc.CreateObject("OLEObject", sProgId ,"")
          If (Err = 0) Then
               Call ws.DialogBox("(OLEMailFields)",True,True)
          Else
               note.tmpuseOLE = ""
               uidoc.RefreshHideFormulas
          End If
     Else
'the user is reading/editing an existing document
'if the OriginalEditor = MailEditor, display the document using that Editor
'otherwise, let Notes display the document
          If Lcase(note.OriginalEditor(0)) = Lcase(sProgId) Then
               uidoc.editmode = True
               Set OLEObject = uidoc.GetObject("OLEObject")
               If Not(Isobject(OLEObject)) Then
'there is no object for some reason -this should be rare!!
                    uidoc.EditMode = True
                    note.OriginalEditor = sProgid
                    uidoc.GotoField(note.~$OLEObjField(0))
                    Call uidoc.CreateObject("OLEObject",sProgId,"")
                    Exit Sub
               End If
          Else
'the user has a different editor
               note.tmpUseOLE = ""
               uidoc.RefreshHideFormulas
          End If
     End If
End Sub
,T    }d
,T    }d
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
HH9Kiy
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "AppointmentResponses"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub AcceptInvitation
Declare Sub DeclineInvitation
Declare Function DelegateInvitation As Integer
Declare Sub CounterPropose
'++LotusScript Development Environment:2:5:(Declarations):0:10
'NoticeProcessing:
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
'++LotusScript Development Environment:2:2:AcceptInvitation:1:8
Sub AcceptInvitation
    *This routine is called whenever the user accepts a meeting invitation
    *A notice document is sent to the chair informing them of our intent to attend
    *The main invitation document is updated to reflect our acceptance
%END REM

     On Error Goto ErrorRoutine
     On Error 4005 Resume Next 'handle a delegee

'first, make sure a conflict doesn't exist
'we don't check repeating appointments or appointments being auto-processed (auto-process does it itself)
     If Not((note.HasItem("RepeatFor")) Or (IsAgentProcessing)) Then
          If (profile.ConflictMeeting(0) = "1") Then
               If (CheckIfConflictExists) Then Exit Sub
          End If
     End If

'create the notice document
     If (note.tmpAction(0) = "PencilIn") Then
          Call CreateNoticeDocument("Penciled In -",ORS_MSGTYPE_ACCEPT,83,2)
     Else
          Call CreateNoticeDocument("Accepted -",ORS_MSGTYPE_ACCEPT,83,2)
     End If

'add the comment if necessary
     If (note.HasItem("IncludeComment")) Then AddInviteeComment

     If (note.HasItem("FromDomain")) Then
          notice.sendTo= note.Chair(0) & " @ " & note.FromDomain(0)
     Else
          FromDomain = Evaluate("@Domain")
          notice.SendTo = note.Chair(0) & " @ " & FromDomain(0)
     End If

'we use the profile document in case this is being processed by the agent
     InviteeUserName = Evaluate("@Name([Abbreviate];owner)",profile)
     ChairName = Evaluate("@Name([cn];chair)",note)
     notice.InviteeName = InviteeUserName
     Call notice.Send(False)
'now we need to update the original invitation document
     Context = GetContext
     Select Case Context
     Case 1,3
'1 = non-repeat notice; 3 = repeat notice; in either case, update the parent note
          Call UpdateOriginalInvitation(parentnote)
     Case 2,4
'2 = repeat instance; 4 = non-repeat instance; in either case, update the current note
          Call UpdateOriginalInvitation(note)
     End Select
     If Not(IsAgentProcessing) Then Messagebox "A notice has been sent informing " & ChairName(0) & " that you will be attending. A meeting document has been added to your Calendar.",0,"Status"

'see if we should remove this from the inbox
     If (profile.AutoRemoveFromInbox(0) = "1") Then note.RemoveFromFolder("($Inbox)")
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (AcceptInvitation)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:DeclineInvitation:1:8
Sub DeclineInvitation
    *This routine is called whenever the user declines an invitation or
     changes their mind after accepting an invitation
    *A notice document is sent to the chair informing them of our decline
    *The main invitation document is updated to reflect our decline
%END REM
     Dim MessageText As String

     On Error Goto ErrorRoutine
     On Error 4005 Resume Next 'handle a delegee

     Call CreateNoticeDocument("Declined -",ORS_MSGTYPE_REJECT,84,2)

'add the comment if necessary
     If (note.HasItem("IncludeComment")) Then AddInviteeComment

     If (note.HasItem("FromDomain")) Then
          notice.sendTo= note.Chair(0) & " @ " & note.FromDomain(0)
     Else
          FromDomain = Evaluate("@Domain")
          notice.SendTo = note.Chair(0) & " @ " & FromDomain(0)
     End If

     InviteeUserName = Evaluate("@Name([Abbreviate];tmpOwner)",note)
     ChairName = Evaluate("@Name([cn];chair)",note)
     notice.InviteeName = InviteeUserName

     Call notice.Send(False)
'now we need to update the original invitation document
     Context = GetContext
     Select Case Context
     Case 1,3
'1 = non-repeat notice; 3 = repeat notice; in either case, update the parent note
          If (parentnote.Form(0) = "Appointment") Then
               MessageText  = "The calendar entry has been removed from your calendar."
          Else
               MessageText = "A meeting document has not been added to your Calendar."
          End If
          Call UpdateOriginalInvitation(parentnote)
     Case 2,4
'2 = repeat instance; 4 = non-repeat instance; in either case, update the current note
          If (note.Form(0) = "Appointment") Then
               MessageText  = "The calendar entry has been removed from your calendar."
          Else
               MessageText = "A meeting document has not been added to your Calendar."
          End If
          Call UpdateOriginalInvitation(note)
     End Select

     Messagebox "A notice has been sent informing " & ChairName(0) & " that you will not be attending. " & MessageText,0,"Status"
'see if we should remove this from the inbox
     If (profile.AutoRemoveFromInbox(0) = "1") Then note.RemoveFromFolder("($Inbox)")
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (DeclineInvitation)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:1:DelegateInvitation:1:8
Function DelegateInvitation As Integer
    *This routine is called whenever the user wants to delegate a meeting invitation
    *This routine provides a dialogbox to select the delegatee
    *This routine sends an invitation to the delegatee and a delegation notice back to the chair
    *The main appointment document is updated to reflect the change
    *This function returns 0 if no errors occurred, or 1 if errors did occur
%END REM

     On Error Goto ErrorRoutine
     On Error 4005 Resume Next 'handle a delegee

     DelegateInvitation = 0
'invoke the dialog box to get the name
     If (ws.Dialogbox("(NamesPrompt)", True, True, False, False, False, False, "Delegate To") = True) Then
'if this person has been invited by the chair, they should not be able to be a delegee
          localHasBeenInvited = Evaluate("@IsMember(@Lowercase(@Name([cn];SendTo));@Lowercase(@Name([cn];RequiredAttendees:OptionalAttendees:Chair)))",note)
          If (localHasBeenInvited(0) <> False) Then
               Messagebox "You have selected a person that has already been invited to this meeting. Please choose someone else.",0,"Invalid Selection"
               DelegateInvitation = DelegateInvitation()
               Exit Function
          End If
'create the notice and send it to the delegee
          Call CreateNoticeDocument("Invitation -",ORS_MSGTYPE_DELEGATE,133,2)
          notice.OrgState = ORS_STATE_DELEGATE
'remove the items that make this a response
          Call notice.RemoveItem("$Ref")
          Call notice.RemoveItem("$RefOptions")
'add the comment if necessary
          If (note.HasItem("IncludeComment")) Then AddInviteeComment
'set the UniversalID of the notice
          If (parentnote Is Nothing) Then
               notice.UniversalID = note.UniversalID
          Else
               notice.UniversalID = parentnote.UniversalID
          End If
          notice.SendTo = note.SendTo
          Call notice.Send(False)
'create the notice and send it to the chair
          Call CreateNoticeDocument("Delegated -",ORS_MSGTYPE_DELEGATING,84,2)
'add the comment if necessary
          If (note.HasItem("IncludeComment")) Then AddInviteeComment

          If (note.HasItem("FromDomain")) Then
               notice.sendTo= note.Chair(0) & " @ " & note.FromDomain(0)
          Else
               FromDomain = Evaluate("@Domain")
               notice.SendTo = note.Chair(0) & " @ " & FromDomain(0)
          End If
          note.Delegee = note.SendTo(0)
          notice.Delegee = Evaluate("@Name([Abbreviate];SendTo)",note)
          InviteeUserName = Evaluate("@Name([Abbreviate];tmpOwner)",note)
          ChairName = Evaluate("@Name([cn];chair)",note)
          DelegeeName = Evaluate("@Name([cn];sendto)",note)
          notice.InviteeName = InviteeUserName
          Call notice.Send(False)
'call the function to update our invitation
          Context = GetContext
          Select Case Context
          Case 1,3
'1 = non-repeat notice; 3 = repeat notice; in either case, update the parent note
               Call UpdateOriginalInvitation(parentnote)
               parentnote.Delegee = DelegeeName(0)
               parentnote.save True,False,True
          Case 2,4
'2 = repeat instance; 4 = non-repeat instance; in either case, update the current note
               Call UpdateOriginalInvitation(note)
          End Select
          Messagebox "An invitation has been sent to " & Delegeename(0) & ". A notice has been sent informing " & ChairName(0) & " that you will not be attending.",0,"Status"
'remove the sendto on the note
          note.SendTo = ""
'see if we should remove this from the inbox
          If (profile.AutoRemoveFromInbox(0) = "1") Then note.RemoveFromFolder("($Inbox)")
          DelegateInvitation = 0
     Else
          DelegateInvitation = 1
     End If

     Exit Function

ErrorRoutine:
     Messagebox Error & " (DelegateInvitation)"
     Call MarkTempFields(note)
     Call note.RemoveItem("tmpUserActions")
     DelegateInvitation = 1
     Exit Function
End Function
'++LotusScript Development Environment:2:2:CounterPropose:1:8
Sub CounterPropose
    *This routine is called whenever the user wants to send a counter propose notice
    *This routine sends a counter propose notice to the chair and updates the main
     appointment document
%END REM

     On Error Goto ErrorRoutine
     On Error 4005 Resume Next 'handle a delegee

     Call CreateNoticeDocument("Change Proposal -",ORS_MSGTYPE_COUNTER,39,2)

'add the comment if necessary
     If (note.HasItem("IncludeComment")) Then AddInviteeComment

'add the remaining items
     notice.Reason = note.Reason

     Set trdr = session.CreateDateRange
     trdr.Text = uidoc.FieldGetText("NewTimeRange")
     Set startdt = New NotesDateTime(uidoc.FieldGetText("NewDate") & " " & trdr.StartDateTime.TimeOnly)

     Set notice.NewDate = startdt
     Set notice.NewTimeRange = trdr
     notice.NewRoom = note.NewRoom
     InviteeUserName = Evaluate("@Name([Abbreviate];tmpOwner)",note)
     ChairName = Evaluate("@Name([cn];chair)",note)
     notice.InviteeName = InviteeUserName

     If (note.HasItem("FromDomain")) Then
          notice.sendTo= note.Chair(0) & " @ " & note.FromDomain(0)
     Else
          FromDomain = Evaluate("@Domain")
          notice.SendTo = note.Chair(0) & " @ " & FromDomain(0)
     End If

     notice.Send False

     Messagebox "A notice has been sent to " & ChairName(0) & " requesting a change to the Time/Location of this meeting.",0,"Status"

     Call UpdateOriginalInvitation(note)
'see if we should remove this from the inbox
     If (profile.AutoRemoveFromInbox(0) = "1") Then note.RemoveFromFolder("($Inbox)")
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (CounterPropose)"
     Exit Sub
End Sub
owner
    0S0E
chair
    0S0E
tmpOwner
    0S0E
chair
    0S0E
SendTo
RequiredAttendees
OptionalAttendees
Chair
    0S0E
SendTo
    0S0E
tmpOwner
    0S0E
chair
    0S0E
sendto
    0S0E
tmpOwner
    0S0E
chair
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "SharedWorkflowLibrary"
Use "RepeatProcessing"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub GetUpdateResponseItems(Byval context As Integer)
Declare Sub SetUpdateAsMostRecent(MainSequence As Integer)
Declare Sub GetMostRecentUpdateNotice(Context As Integer)
Declare Sub CheckForNoticeUpdates
Declare Sub DeCommitAppointment(apptdoc As NotesDocument)
Declare Sub CommitAppointment(apptdoc As NotesDocument)
Declare Function GetParentDocument() As Integer
'++LotusScript Development Environment:2:5:(Declarations):0:10
'NoticeResponses:
Dim UpdateResponses() As NoticeInfo
Dim UpdateSequence As Integer
Dim UpdateCreation As Variant
Dim UpdateAction As String
Dim UpdateStatus As String
Dim UpdateUNID As String
Dim UpdateDate As Variant
Dim UpdateTime As Variant
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
'++LotusScript Development Environment:2:2:GetUpdateResponseItems:1:8
Sub GetUpdateResponseItems(Byval context As Integer)
    *This gets specific items from any update notices from the chair
 *Update notices are responses documents to the current invitation
%END REM
     Dim itemSDT As NotesItem

     On Error Goto ErrorRoutine

     UpdateSequence = response.SequenceNum(0)
     UpdateCreation = response.Created
     UpdateAction = response.NoticeType(0)
     UpdateUNID = response.UniversalID
'if this update is a status update, get the status update type
     If (UpdateAction = ORS_MSGTYPE_STATUSUPDATE) Then
          UpdateStatus = response.OrgStatus(0)
     Else
          UpdateStatus = ""
     End If
     If (UpdateAction = ORS_MSGTYPE_CONFIRMATION) Then
          Set itemSDT = note.GetFirstItem("StartDateTime")
          UpdateDate = itemSDT.DateTimeValue.DateOnly
          UpdateTime = itemSDT.DateTimeValue.TimeOnly
     End If
'if the user opened up the main parent document and this is a repeat response, we need to add certain items to the parent
     Select Case context
'1 means the current note is a non-repeat notice, 3 = repeat notice
     Case 1,3
          If(response.HasItem("RescheduleWhich")) Then parentnote.RescheduleWhich = response.RescheduleWhich
          If(response.HasItem("OriginalStartDate")) Then parentnote.OriginalStartDate = response.OriginalStartDate
     Case 2,4
'2 means repeat instance, 4 means non-repeat instance
          If(response.HasItem("RescheduleWhich")) Then note.RescheduleWhich = response.RescheduleWhich
          If(response.HasItem("OriginalStartDate")) Then note.OriginalStartDate = response.OriginalStartDate
     End Select

     Exit Sub

ErrorRoutine:
     Messagebox Error & " (GetUpdateResponseItems)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:SetUpdateAsMostRecent:1:8
Sub SetUpdateAsMostRecent(MainSequence As Integer)
    *This routine sets the current response as the most recent
    *We need to do this in case multiple update notices have been
     received from the chair and we want to process the most recent one
    *The MainSequence parameter is the SequenceNum item of the main inviation document
%END REM

     On Error Goto ErrorRoutine

'if this is a confirmation, then add it's items to the 1 index, otherwise add it to the 0 index
     Dim index As Integer

     If (UpdateAction = ORS_MSGTYPE_CONFIRMATION) Then
          index = 1
          UpdateResponses(index).apptdate = UpdateDate
          UpdateResponses(index).appttime = UpdateTime
     Else
          index = 0
     End If

     UpdateResponses(index).sequencenum = UpdateSequence
     UpdateResponses(index).creationdate = UpdateCreation
     UpdateResponses(index).action = UpdateAction
     UpdateResponses(index).misc1 = UpdateStatus
     UpdateResponses(index).misc2 = UpdateUNID
     numResponses = numResponses + 1
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (SetUpdateAsMostRecent)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:GetMostRecentUpdateNotice:1:8
Sub GetMostRecentUpdateNotice(Context As Integer)
    *This is the bulk of the processing for notice responses
    *This routine iterates through the responses of a particular meeting invitation
     and gets the most recent notice sent by the chair
%END REM
     Dim index As Integer
     Dim MainSequence As Integer

     If (note.IsResponse) And (parentnote Is Nothing) Then Exit Sub
     On Error Goto ErrorRoutine

     Redim UpdateResponses(2)
     numResponses = 0

'get the context that this document was opened in
     Context = GetContext
     Select Case context
     Case 1,3
'1 means the current note is a non-repeat notice, 3 = repeat notice
          Set documents  = parentnote.Responses
          MainSequence = parentnote.SequenceNum(0)
     Case 2,4
'2 means repeat instance, 4 means non-repeat instance
          Set documents  = note.Responses
          MainSequence = note.SequenceNum(0)
     End Select

     If (documents.Count = 0) Then Exit Sub

     Set response = documents.GetFirstDocument
     While Not(response Is Nothing)
'make sure we have a valid document
          If (response.Form(0) = "Notice") Then
'get the necessary values for this update
               GetUpdateResponseItems(Context)
'if the sequence is >= the original invitation sequence, we can process it
               If (UpdateSequence >= MainSequence) Then
'if we haven't added anything to the array, add this one
                    If (numResponses = 0) Then
                         Call SetUpdateAsMostRecent(MainSequence)
                    Else
                         If (UpdateAction = ORS_MSGTYPE_CONFIRMATION) Then
                              index =1
                         Else
                              index = 0
                         End If
'if the UpdateSequence value is greater than the existing value, add this response
                         If (UpdateSequence > UpdateResponses(index).sequencenum) Then
                              Call SetUpdateAsMostRecent(MainSequence)
                         Else
'if the UpdateSequence = the existing value, compare creation dates
                              If (UpdateSequence = UpdateResponses(index).sequencenum) And (UpdateCreation > UpdateResponses(index).creationdate) Then Call SetUpdateAsMostRecent(MainSequence)
                         End If
                    End If
               End If
          End If
          Set response = documents.GetNextDocument(response)
     Wend
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (GetMostRecentUpdateNotice)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:CheckForNoticeUpdates:1:8
Sub CheckForNoticeUpdates
    *This routine is called from the QueryOpen event on notice and appointment forms
    *It is only called if the mail owner != the meeting chair (i.e. we are an invitee)
    *This routine calls GetMostRecentResponseNotice and performs an action based upon the notice
%END REM

     Dim Context As Integer
     Dim lDoc As NotesDocument

     Call GetMostRecentUpdateNotice(Context)

     If (documents.Count = 0) Then Exit Sub 'there are no responses

     Select Case Context
'1 means the current note is a non-repeat notice, 3 = repeat notice
     Case 1,3
          Set lDoc = parentnote
     Case 2,4
'2 means repeat instance, 4 means non-repeat instance
          Set lDoc = note
     End Select

     On Error Goto ErrorRoutine
'if there are any responses waiting, see what the most recent one is;
     Select Case UpdateResponses(0).action
     Case ORS_MSGTYPE_RESCHEDULE
'if the user is not reading the most upto date notice, see if we should open the reschedule notice or not
          If  (UpdateResponses(0).misc2 <> note.UniversalID) Then
               If (UpdateResponses(0).sequencenum > lDoc.SequenceNum(0)) Then
                    If IsWebClient Then
                         note.tmpConfirmMsg = "This meeting has been rescheduled. Check you In Box or Meetings view for the latest notice."
                    Else
                         If (Messagebox("This meeting has been rescheduled. Do you want to open the Reschedule notice now?.",33,"Open Reschedule") = 1) Then
'the user wants us to open the reschedule notice
                              OpenReschedule = True
                         Else
                              OpenReschedule = False
                              note.DoNotProcess = True
                         End If
                    End If
               End If
          Else
'the user is reading the most upto date reschedule notice -> make sure we can process this document
               If (UpdateResponses(0).sequencenum <= parentnote.SequenceNum(0)) Then note.DoNotProcess = True
          End If
     Case ORS_MSGTYPE_CANCEL
          staticstring = "This meeting has been cancelled."
          If IsWebClient Then
               note.tmpConfirmMsg = staticstring
          Else
               If (lDoc.NoticeType(0) = ORS_MSGTYPE_ACCEPT) Then
                    Messagebox staticstring & " The calendar entry will be updated to reflect this change",0,"Status"
                    Call DeCommitAppointment(lDoc)
               Else
                    Messagebox staticstring, 0, "Status"
               End If
          End If
          note.DoNotProcess = True
'we need to do this here since this is not handled in QuerySave
          If Not IsWebClient And note.HasItem("OrgRepeat") Then
               Action = "Cancel"
               Call RepeatSave
          End If
     Case ORS_MSGTYPE_STATUSUPDATE
          If (UpdateResponses(0).misc1 = ORS_STATUS_REMOVED) Then
'this user was uninvited
               staticstring = "You are no longer required to attend this meeting."
               If IsWebClient Then
                    note.tmpConfirmMsg = staticstring
               Else
                    If (lDoc.NoticeType(0) = ORS_MSGTYPE_ACCEPT) Then
                         Messagebox staticstring & " The calendar entry will be updated to reflect this change",0,"Status"
                         Call DeCommitAppointment(lDoc)
                    Else
                         Messagebox staticstring,0,"Status"
                    End If
               'we need to do this here since this is not handled in QuerySave
                    If note.HasItem("OrgRepeat") Then
                         Action = "Cancel"
                         Call RepeatSave
                    End If
               End If
          Else
'the user is being required to attend
               If (lDoc.NoticeType(0) <> ORS_MSGTYPE_ACCEPT) Then
                    staticstring = "You are required to attend this meeting."
                    If IsWebClient Then
                         note.tmpConfirmMsg = staticstring
                    Else
                         Messagebox  staticstring & " The calendar entry will be created to reflect this change",0,"Status"
                         Call CommitAppointment(lDoc)
                    End If
               End If
          End If
          note.DoNotProcess = True
     End Select
'see if there are any confirmation notice
     If (UpdateResponses(1).Action = ORS_MSGTYPE_CONFIRMATION) Then
'if the user is not reading the most upto date notice, and their are no other update notices more recent than this one, then display the message
          If  (UpdateResponses(1).misc2 <> note.UniversalID) And _
          ((UpdateResponses(1).sequencenum > UpdateResponses(0).SequenceNum) Or _
          (UpdateResponses(1).creationdate > UpdateResponses(0).creationdate)) Then
               note.tmpRealDate = UpdateResponses(1).apptdate
               note.tmpRealTime = UpdateResponses(1).appttime
               If IsWebClient Then
                    RealDate = Evaluate({@Text(tmpRealDate;"S0D0")},note)
                    RealTime = Evaluate({@Text(tmpRealTime;"S1T1")},note)
                    Dim nName As New NotesName(note.Chair(0))
                    note.tmpConfirmMsg = "The invitation from " & nName.Common & " for " & _
                    RealDate(0) & " " & RealTime(0) & " has been confirmed."
               End If
          End If
     End If
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (CheckForNoticeUpdates)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:DeCommitAppointment:1:8
Sub DeCommitAppointment(apptdoc As NotesDocument)
    *This routine is called if a user is uninvited from a meeting or
     if the meeting is cancelled
    *This routine modifies the passed in apptdoc to make it a non-calendar item
%END REM

     apptdoc.NoticeType = UpdateResponses(0).action
     apptdoc.OrgStatus = UpdateResponses(0).misc1
     Call apptdoc.ReplaceItemValue("$BusyPriority","2")
     Call apptdoc.RemoveItem("CalendarDateTime")
     Call apptdoc.ReplaceItemValue("_ViewIcon",0)
     apptdoc.SequenceNum = UpdateResponses(0).SequenceNum
     Call apptdoc.RemoveItem("OrgTable")
'if this document has an alarm, remove it from the alarms folder
     If (apptdoc.HasItem("$Alarm")) Then Call apptdoc.RemoveFromFolder("$Alarms")
     Call MarkTempFields(apptdoc)
     Call apptdoc.Save(True,True,True)
End Sub
'++LotusScript Development Environment:2:2:CommitAppointment:1:8
Sub CommitAppointment(apptdoc As NotesDocument)
    *This routine is called ONLY when the user is being required to attend a meeting
        - THIS MEANS THE INVITEE RECEIVED A STATUSUPDATE NOTICE FROM THE CHAIR
        - WITH AN ORGSTATUS ITEM SET TO ORS_STATUS_ACCEPTED
    *This routine is not the same as an acceptance and should not be treated as such,
     since we don't mail anything back to the chair
%END REM
     Dim chairnote As NotesDocument

     If (UpdateResponses(0).misc2 <> "") Then
          Set chairnote = db.GetDocumentbyUNID(UpdateResponses(0).misc2)
     Else
             Set chairnote = note
     End If

     apptdoc.Form = "Appointment"

     Set trdr = session.CreateDateRange
     Set startdt = New NotesDateTime(chairnote.StartDateTime(0))
     Set enddt = New NotesDateTime(chairnote.EndDateTime(0))

     Set trdr.StartDateTime = startdt
     Set trdr.EndDateTime = enddt
     Set apptdoc.TimeRange = trdr
     Set apptdoc.StartDateTime = startdt
     Set apptdoc.EndDateTime = enddt
     apptdoc.CalendarDateTime = chairnote.StartDateTime
     apptdoc.StartDate = chairnote.StartDate
     apptdoc.Principal = chairnote.chair
     apptdoc.NoticeType = ORS_MSGTYPE_ACCEPT
     Call apptdoc.ReplaceItemValue("_ViewIcon",158)
     Call apptdoc.ReplaceItemValue("$BusyName",Owner)
     Call apptdoc.ReplaceItemValue("$BusyPriority","1")
     Call apptdoc.ReplaceItemValue("_ViewIcon",158)
     apptdoc.Subject = chairnote.Topic
'check to see if we should automatically set an alarm
     If (profile.EnableAlarms(0) = "1") And (profile.AutoSetAlarms(0) = "1") And (profile.SetAlarmAppointment(0) = "1") Then
          Call apptdoc.ReplaceItemValue("$Alarm",1)
          Call apptdoc.ReplaceItemValue("$AlarmDescription",note.Topic)
          Call apptdoc.ReplaceItemValue("$AlarmOffset", -1 * profile.AppointmentLead(0))
          Call apptdoc.PutInFolder("$Alarms")
     Else
          Call apptdoc.RemoveItem("$Alarm")
          Call apptdoc.RemoveItem("$AlarmDescription")
          Call apptdoc.RemoveItem("$AlarmOffset")
     End If
     Call apptdoc.ReplaceItemValue("$NoPurge",apptdoc.EndDateTime(0))
     apptdoc.SequenceNum = UpdateResponses(0).SequenceNum
     apptdoc.OrgTable =  ORS_ITEM_CALENDAR
     Call MarkTempFields(apptdoc)
     Call apptdoc.Save(True,True,True)
End Sub
'++LotusScript Development Environment:2:1:GetParentDocument:1:8
Function GetParentDocument() As Integer
     *this routine gets the parent document for a given note
%END REM
     On Error Resume Next
     GetParentDocument = False

     Set parentnote = db.GetDocumentByUNID(note.ParentDocumentUNID)
     If (parentnote Is Nothing) Then
'if this is a non-repeating note, see if we should re-create the document
          If Not(note.hasitem("OrgRepeat")) Then
               If (Msgbox("The appointment document has been deleted from your calendar, do you want to re-create it?",52) = 6) Then
                    Call ResurrectParentDoc
                    GetParentDocument =True
                    Exit Function
               Else
                    note.tmpNoParent = True
                    note.DoNotProcess = True
                    Exit Function
               End If
          Else
'this is a repeating notice; see if the user is trying to process a response without processing the repeat parent
               If (note.HasItem("RepeatParentUNID")) Then
                    Set parentnote = db.GetDocumentByUNID(note.RepeatParentUNID(0))
                    If (parentnote Is Nothing) Then
'the repeat set has been deleted; see if the user wants to continue on by creating a non-repeat instance
                         If(Msgbox("The parent document has been deleted from your calendar and was part of a repeat set. Do you want to re-create it as a single appointment?",52) = 6) Then
                              Call ResurrectParentDoc
                              GetParentDocument =True
                              Exit Function
                         Else
                              note.tmpNoParent = True
                              note.DoNotProcess = True
                              Exit Function
                         End If
                    Else
'the parent repeat set has not been deleted; see if it is an invitation
                         If (parentnote.NoticeType(0) = ORS_MSGTYPE_INVITE) Then
                              Msgbox "You need to respond to the original meeting invitation that this notice belongs to. After clicking on OK, the original invitation will be opened.",0,"Status"
                              OpenRepeatParent = True
                              Exit Function
                         Else
'the parent repeat set has been processed; see if the user wants to recreate this as a non-repeating instance
                              If(Msgbox("The parent document has been deleted from your calendar and was part of a repeat set. Do you want to re-create it as a single appointment?",52) = 6) Then
                                   Call ResurrectParentDoc
                                   GetParentDocument =True
                                   Exit Function
                              Else
                                   note.tmpNoParent = True
                                   note.DoNotProcess = True
                                   Exit Function
                              End If
                         End If
                    End If
               End If
          End If
     Else
'we found the parent
          GetParentDocument = True
     End If
End Function
8    h
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
 T(N$
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
CN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Catherine Duffy/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Catherine Duffy/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesObjectVariabless34Q1############################
CN=Catherine Duffy/O=IrisCN=Ryan Jansen/O=IrisCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisCN=Ryan Jansen/O=IrisCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesRepeatProcessings34Q1####
qHmvO
CN=Stan Getz/O=bogusCN=Lou Reed/O=bogusCN=Ryan Jansen/O=IrisCN=Harry Peebles/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesSharedTaskLibrarys34Q1##########################
CN=user1 test/O=C&SCN=Ryan Jansen/O=IrisCN=user2 test/O=C&SCN=Ryan Jansen/O=IrisCN=Build Room/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=user1 test/O=C&SCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesSharedWorkflowLibrarys34Q1######################################################
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesDocumentConversionss34Q1############################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub InstantiateObjectVariables
Declare Sub GetCalendarOwner
Declare Sub MarkTempFields(doc As NotesDocument)
Declare Sub CreateDefaultCalendarProfile
Declare Sub wInitDefaultSettings
'++LotusScript Development Environment:2:5:(Declarations):0:10
'Front end classes -> we declare these as variant so that backend server tasks will operate correctly
Dim ws As Variant
Dim uidoc As Variant
'Back end classes
Dim session As NotesSession
Dim db As NotesDatabase
Dim note As NotesDocument
Dim profile As NotesDocument
Dim notice As NotesDocument
Dim parentnote As NotesDocument
Dim parent As NotesDocument
Dim child As NotesDocument
Dim documents As NotesDocumentCollection
Dim children As NotesDocumentCollection
Dim date1 As NotesDateTime
Dim date2 As NotesDateTime
Dim dateItem As NotesDateTime
Dim item As NotesItem
Dim NameLookup As NotesName
'General Purpose classes
Dim Owner As String
Dim NewDocument As Integer
'Client Differenciation
Dim IsWebClient As Variant
%INCLUDE "orgconst.lss"
%INCLUDE "lsconst.lss"
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
'++LotusScript Development Environment:2:2:InstantiateObjectVariables:1:8
Sub InstantiateObjectVariables
     Set session = New NotesSession
     Set db = session.CurrentDatabase

     GetCalendarOwner

     If Typename(uidoc) <> "EMPTY" Then
          Set note = uidoc.Document
          uidoc.AutoReload  = False
     End If
End Sub
'++LotusScript Development Environment:2:2:GetCalendarOwner:1:8
Sub GetCalendarOwner

     On Error Resume Next

     If (profile Is Nothing) Then Set profile = db.GetProfileDocument("CalendarProfile")
     If Err > 0 Then
          Err = 0
          Call CreateDefaultCalendarProfile
     End If

     On Error Goto ErrorRoutine
     If profile.Owner(0) = "" Then Call CreateDefaultCalendarProfile

     Owner = profile.Owner(0)

     Exit Sub

ErrorRoutine:
     Messagebox Error & " (creating Calendar Profile)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:2:MarkTempFields:1:8
Sub MarkTempFields(doc As NotesDocument)
'Mark all temporary and compute for display fields such that they will not be saved to disk
     On Error Resume Next
     itemlist = doc.Items
     Forall n In itemlist
          If Lcase(Left(n.Name, 3)) = "tmp" Or Lcase(Left(n.Name, 4)) = "disp" Then n.SaveToDisk = False
     End Forall

     If Not IsWebClient Then Exit Sub

     'remove web CGI variable so that they will get updated on the next doc read
     Call doc.RemoveItem("$$QueryOpenAgent")
     Call doc.RemoveItem("$$QuerySaveAgent")
     Call doc.RemoveItem("Path_Info")
     Call doc.RemoveItem("Query_String")

     'if the mail option fields are all default values, remove them
     If (doc.Importance(0) = "2" And doc.DeliveryPriority(0) = "N" And doc.DeliveryReport(0) = "B" And _
     doc.Form(0) <> "Task") Then
          Call doc.RemoveItem("Importance")
          Call doc.RemoveItem("DeliveryPriority")
          Call doc.RemoveItem("DeliveryReport")
     End If
End Sub
'++LotusScript Development Environment:2:2:CreateDefaultCalendarProfile:1:8
Sub CreateDefaultCalendarProfile
 *This routine creates a calendar profile document
  containg default values for required fields
%END REM

'the global variable "profile" is a profile document already
'we need to add the fields to it
     profile.Form = "CalendarProfile"
     Call profile.ComputeWithForm(False, False)

     If IsWebClient Then
          Call wInitDefaultSettings()
     Else
          Call profile.Save(True,True,True)
     End If
End Sub
'++LotusScript Development Environment:2:2:wInitDefaultSettings:1:8
Sub wInitDefaultSettings
     profile.wDefaultMailOpt = "2"
     profile.wEnableTrashIcon = "1"
     profile.wCalGridType = "3"

     profile.wEnableNABs = "0"
     profile.wEnableFavorites = "0"

     profile.wIsFolder1 = "1"
     profile.wIsFolder2 = "1"
     profile.wIsFolder3 = "1"
     profile.wIsFolder4 = "1"
     profile.wIsFolder5 = "1"
     profile.wIsFolder6 = "1"

     profile.NotesNab1 = "names.nsf"

     Call profile.Save(True,True,True)
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "ObjectVariables"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub RepeatSave
Declare Sub RepeatClose
Declare Sub SaveOriginalValues
Declare Sub ModifyRecurring
Declare Sub CopyChanges
Declare Sub BuildRepeatDates
Declare Sub NextAdjustment(x, TargetWeek)
Declare Function ProcessThisDoc As Integer
Declare Sub GetModifiedSettings
'++LotusScript Development Environment:2:5:(Declarations):0:10
'------PROCESSING VARIABLES------
Dim tmpnote As NotesDocument
Dim repnote As NotesDocument
Dim timerange As NotesDateRange
Dim Action As String
Dim AdjustDays As Integer
Dim Adjustment As Integer
Dim ChangeWhich As String
Dim DateList() As Variant
Dim DayList() As Integer
Dim SaveValueList List As Variant
Dim tmpRepeatDates() As Variant
Dim tmpRepeatIds() As Variant
Dim WeekList() As Integer
Dim WeekNbr As Integer
Dim CancelChange As Integer
Dim InstancesCreated As Integer
Dim QueriedForChanges As Integer
'++LotusScript Development Environment:2:2:RepeatSave:1:8
Sub RepeatSave

     On Error Goto ErrorRoutine

'note IS THE CURRENT DOCUMENT
'repnote IS THE REPEAT INSTANCE
'parent IS THE ULTIMATE PARENT

'if note is a response, check to see if it is a notice
'if it is a notice then we need to find the parent
     If note.IsResponse Then
          If note.Form(0) = "Notice" Then
               Set repnote = db.GetDocumentByUNID(note.ParentDocumentUNID)
          Else
               Set repnote = note
          End If
          If repnote Is Nothing Then Exit Sub
          Err = 0
          On Error Resume Next
          Set parent = db.GetDocumentByUNID(repnote.ParentDocumentUNID)
          If Err = 0 Then
               On Error Goto ErrorRoutine
          Else
               Err = 0
               If parent Is Nothing Then Messagebox "This document's repeat parent has been deleted, "&_
               "therefore this calendar entry can no longer be processed as a repeating entry.", 0, "Repeat Parent Not Found"
               Exit Sub
          End If
     Else
          Set parent = note
     End If

     If parent Is Nothing Then Exit Sub

     If (NewDocument Or Action = "Accept") And Not(InstancesCreated) Then
'Build a list of all the dates this appointment will recur on (Accept already has the RepeatDates)
          If NewDocument And note.RepeatUnit(0) <> "C" Then Call BuildRepeatDates
'This doc becomes the parent of all of the repeat instances
'Mark all temporary and compute for display fields such that they will not be saved to disk
          On Error Resume Next
          itemlist = parent.Items
          Forall n In itemlist
               If Lcase(Left(n.Name, 3)) = "tmp" Or Lcase(Left(n.Name, 4)) = "disp" Then n.SaveToDisk = False
          End Forall
          On Error Goto ErrorRoutine
          Set timerange = session.CreateDateRange
'Get the duration
          Set date1 = New NotesDateTime(parent.StartDateTime(0))
          Set date2 = New NotesDateTime(parent.EndDateTime(0))
          Duration =date2.TimeDifference(date1) / 60
'Get the original start time and use it to set the time
          Set date2 = New NotesDateTime(parent.StartDateTime(0))
          date2.SetAnyDate
'If there is a $AlarmTime we need to create the correct alarm times for each instsance
          If parent.HasItem("$AlarmTime") Then
               AlarmTime = parent.GetItemValue("$AlarmTime")
               Dim alarmdate As New NotesDateTime(AlarmTime(0))
               AlarmDiff = alarmdate.TimeDifference(date1) / 60
          End If
'Create a copy of this meeting for each of the repeatDates, these are all children of parent which we just created
          RepeatDates = parent.RepeatDates
          RepeatIds = parent.RepeatIds
          BusyName = Owner
          IdList = parent.RepeatIds
          If Ubound(RepeatDates) > Ubound(IdList) Then Redim Preserve IdList(Ubound(RepeatDates))
          x = 0
          Forall d In RepeatDates
               Print "Creating repeating appointments... (" & (x+1) & " out of " & (Ubound(RepeatDates)+1) & ")"
               Set repnote = New NotesDocument(db)
               Call parent.CopyAllItems(repnote)
               repnote.Form = "Appointment"
               If NewDocument Then
                    repnote.Chair = Owner
               Else
                    repnote.Chair = note.Chair 'in this case we are accepting an invite
               End If
               repnote.SequenceNum = 1
'Store new date with original time (date2)
               Set date1 = New NotesDateTime(d & " " & date2.LocalTime)
               Call repnote.ReplaceItemValue("StartDateTime", date1)
               Call repnote.ReplaceItemValue("StartDate", date1)
               Call repnote.ReplaceItemValue("CalendarDateTime", date1)
               Call date1.AdjustMinute(Duration, True)
               Call repnote.ReplaceItemValue("EndDateTime", date1)
               Call repnote.ReplaceItemValue("$NoPurge", date1)
               Set timerange.StartDateTime = New NotesDateTime(d & " " & date2.LocalTime)
               Set timerange.EndDateTime = date1
               Set repnote.TimeRange = timerange
               If repnote.HasItem("$AlarmTime") Then
                    Call date1.AdjustMinute(AlarmDiff, True)
                    Call repnote.ReplaceItemValue("$AlarmTime", date1)
               End If
               If repnote.HasItem("Invite") Or repnote.SendTo(0) <> "" Or repnote.CopyTo(0) <> "" Or Action = "Accept" Or NewDocument Then
                    repnote.RemoveItem("Invite")
                    repnote.RemoveItem("SendTo")
                    repnote.RemoveItem("CopyTo")
                    If (repnote.Resources(0) <> "") Then repnote.RequiredResources = repnote.Resources
                    repnote.RemoveItem("Resources")
                    repnote.RemoveItem("RoomToReserve")
                    repnote.RemoveItem("$Signature")
               End If
'Remove all of the Repeat parameters - these are saved in the parent document
               repnote.RemoveItem("RepeatUnit")
               repnote.RemoveItem("RepeatDates")
               repnote.RemoveItem("RepeatIds")
               repnote.RemoveItem("RepeatAdjust")
               repnote.RemoveItem("RepeatFor")
               repnote.RemoveItem("RepeatForUnit")
               repnote.RemoveItem("RepeatHow")
               repnote.RemoveItem("RepeatInterval")
               repnote.RemoveItem("RepeatUntil")
               repnote.RemoveItem("RepeatWeekends")
               Call repnote.ReplaceItemValue("$BusyName", BusyName)
               Call repnote.MakeResponse(parent)
               Call repnote.ReplaceItemValue("$RefOptions", "1")
               If Action = "Accept" Then
                    repnote.UniversalId = RepeatIds(x)
               Else
                    IdList(x) = repnote.UniversalId
               End If
               repnote.save True, True, True
               If repnote.HasItem("$Alarm") Then Call repnote.PutInFolder("$Alarms")
               x = x + 1
          End Forall
          parent.RepeatIds = IdList
          parent.RemoveItem("CalendarDateTime")
          parent.RemoveItem("$BusyName")
          parent.RemoveItem("$BusyPriority")
          parent.Save True, True, True
          InstancesCreated = True
     Else
          If note.IsResponse Then Call ModifyRecurring
     End If

     If Typename(uidoc) = "EMPTY" Then
          If Not(note Is Nothing) And Not(CancelChange) Then note.save True, True, True
     Elseif uidoc Is Nothing Then
          If Not(note Is Nothing) And Not(CancelChange) Then note.save True, True, True
     End If

     Exit Sub

ErrorRoutine:
     Messagebox Error & " (RepeatSave)"
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:RepeatClose:1:8
Sub RepeatClose

     On Error Goto ErrorRoutine

     If Action = "SaveBody" Then
          uidoc.Save
     Else
          ws.ViewRefresh
     End If

     Exit Sub

ErrorRoutine:
     Messagebox Error & " (RepeatQueryClose)"
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:SaveOriginalValues:1:8
Sub SaveOriginalValues
     On Error Goto ErrorRoutine
'Save the current value of all fields in the repeat instance

     If note.Form(0) = "Notice" And note.IsResponse Then
          Set repnote = db.GetDocumentByUNID(note.ParentDocumentUNID)
     Else
          Set repnote = note
     End If

     If repnote Is Nothing Then Exit Sub

     Forall i In repnote.Items
          If (Left(i.name, 1) <> "$" And Lcase(Left(i.name, 3)) <> "tmp" And Lcase(Left(i.name, 3)) <> "disp") Or _
          (Mid(i.name, 2, 5) = "Alarm")  Then
               SaveValueList(i.Name) = i.Values
          End If
     End Forall

     Exit Sub

ErrorRoutine:
     Messagebox Error & " (SaveOriginalValues)"
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:ModifyRecurring:1:8
Sub ModifyRecurring

     On Error Goto ErrorRoutine

     If parent Is Nothing Then Exit Sub

     RepeatDates = parent.RepeatDates
     RepeatIds = parent.RepeatIds
     If RepeatDates(0) = "" Or RepeatIds(0) = "" Then Exit Sub

'clear out these arrays because we'll be rebuilding them with only the remaining dates
     If Action = "Delete" Then
          For d = 0 To Ubound(RepeatDates)
               RepeatDates(d) = ""
               RepeatIds(d) = ""
          Next
     End If

     Call GetModifiedSettings

     If ChangeWhich = "0" And Action <> "Delete" Then Exit Sub

'Add any new items and their values.
     Forall i In repnote.Items
          If (Left(i.name, 1) <> "$" And Lcase(Left(i.name, 3)) <> "tmp" And Lcase(Left(i.name, 3)) <> "disp") Or _
          (Mid(i.name, 2, 5) = "Alarm")  Then
               ItemFound = False
               Forall s In SaveValueList
                    If i.Name = Listtag(s) Then
                         ItemFound = True
                         Exit Forall
                    End If
               End Forall
               If Not(ItemFound) Then SaveValueList(i.Name) = i.Values
          End If
     End Forall

     Set children = parent.Responses
     If children Is Nothing Then Exit Sub
     Set child = children.GetFirstDocument
     Set timerange = session.CreateDateRange
     x = 0
     y = 0
     While Not (child Is Nothing)
          If (child.Form(0) = "Appointment") Then
               If ProcessThisDoc Then
                    Select Case Action
                    Case "Delete"
                         Set tmpnote = children.GetNextDocument(child)
                         Call child.Remove(True)
                    Case "Cancel"
                         child.RemoveItem("CalendarDateTime")
                         Call child.ReplaceItemValue("$BusyPriority","2")
                         child.NoticeType = ORS_MSGTYPE_CANCEL
                         child.RemoveItem("OrgTable")
                         child.Save True, True, True
                    Case Else
                         If child.UniversalID <> repnote.UniversalID Then
                              Call CopyChanges
                              Set date1 = New NotesDateTime(child.StartDateTime(0))
                              Set date2 = New NotesDateTime(child.EndDateTime(0))
                              Set timerange.StartDateTime = date1
                              Set timerange.EndDateTime = date2
                              Set child.TimeRange = timerange
                              child.Save True, True, True
                         End If
'these are reset so that we can post the new values on the parent (removing the values for deleted instances)
                         RepeatDates(x) = Datevalue(child.StartDateTime(0))
                         RepeatIds(x) = child.UniversalId
'tmpRepeatDates are posted to a reschedule notice
                         Redim Preserve tmpRepeatDates(y)
                         Redim Preserve tmpRepeatIds(y)
                         tmpRepeatDates(y) = RepeatDates(x)
                         tmpRepeatIds(y) = RepeatIds(x)
                         y = y + 1
                         x = x + 1
                    End Select
               Else
'we want to rebuild the RepeatDates and RepeatIds lists with only valid ones (if the doc is deleted its date and ID are removed)
                    RepeatDates(x) = Datevalue(child.StartDateTime(0))
                    RepeatIds(x) = child.UniversalId
                    x = x + 1
               End If
          End If
'child will be nothing if we just removed it
          If child Is Nothing Then
               Set child = tmpnote
          Else
               Set child = children.GetNextDocument(child)
          End If
     Wend

     If Action = "Delete" Then
          If ChangeWhich = "1" Then Call parent.Remove(True)
     Else
          repnote.tmpRepeatDates = tmpRepeatDates
          repnote.tmpRepeatIds = tmpRepeatIds
     End If

     If Not(parent Is Nothing) And RepeatDates(0) <> "" Then
          For r = 0 To Ubound(RepeatDates)
               If RepeatDates(r) = "" Then Exit For
          Next
          Redim Preserve RepeatDates(r-1)
          Redim Preserve RepeatIds(r-1)
          parent.RepeatDates = RepeatDates
          parent.RepeatIds = RepeatIds
          parent.save True, True, True
     End If

     Exit Sub

ErrorRoutine:
     Messagebox Error & " (ModifyRecurring)"
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:CopyChanges:1:8
Sub CopyChanges
     Dim rtitem As NotesRichTextItem

     On Error Goto ErrorRoutine

     Forall OldValue In SaveValueList
          FieldName = Listtag(OldValue)
          NewValue = repnote.GetItemValue(FieldName)
          If FieldName = "Body" Then
               Set rtitem = repnote.GetFirstItem("body")
               Call child.RemoveItem("body")
               If Not(rtitem Is Nothing) Then Call rtitem.CopyItemToDocument(child,"body")
          Elseif Lcase(FieldName) = "statusupdate" Then
'we don't want to do anything with this field
          Else
               If Cstr(NewValue(0)) <> Cstr(OldValue(0)) Then
                    Select Case Lcase(FieldName)
'dates need to be adjusted (other things just get replaced)
                    Case "startdatetime", "calendardatetime", "enddatetime", "$alarmtime", "startdate"
'date1 is old date
                         Set date1 = New NotesDateTime(Cstr(OldValue(0)))
'date2 is new date
                         Set date2 = New NotesDateTime(Cstr(NewValue(0)))
                         TotalDif = date2.TimeDifference(date1)
                         AdjustDays = Fix(TotalDif / 86400)
                         SecDif = TotalDif Mod 86400
                         AdjustMin = Fix(SecDif / 60)
                         Set item = child.GetFirstItem(FieldName)
                         If Not(item Is Nothing) Then
                              Set dateItem = item.DateTimeValue
                              Call dateItem.AdjustDay(adjustDays, True)
                              Call dateItem.AdjustMinute(AdjustMin, True)
                              Call child.ReplaceItemValue(FieldName, dateItem)
                         End If
                    Case "sendto", "copyto", "resources", "requiredresources","statusupdate"
                         'we don't want to copy these fields
                    Case Else
'The other fields can simply be copied over
                         Call child.ReplaceItemValue(FieldName, repnote.GetItemValue(FieldName))
                    End Select
               End If
          End If
     End Forall

     Exit Sub

ErrorRoutine:
     Messagebox Error & " (CopyChanges)"
     Exit Sub

End Sub
'++LotusScript Development Environment:2:2:BuildRepeatDates:1:8
Sub BuildRepeatDates

'this only happens on a new doc so note = repnote = parent

     On Error Goto ErrorRoutine

Assumes the following fields exist on the form:
   RepeatUnit - Daily(D), Weekly(W), MonthlyByDate(MD), MonthlyByDay(MP), Yearly(YD), Custom(C)
   RepeatInterval - 1, 2, 3.... for every, every other, every 3rd,...
   RepeatAdjust - if unit = W then 0, 1..6 representing days of the week
   StartDate
   RepeatHow - Until (U) or For (F)
   RepeatFor - a number of units
   RepeatForUnit - the unit used in RepeatFor (D, W, M, Y)
   RepeatUntil - a date
   RepeatWeekends - Don'tMove(D), MoveToFriday(F), MoveToMonday(M), MoveToNearestWeekday(N), Delete(X)
NOTE:  In some instances, we create an instance for StartDateTime then the number of occurances specified in RepeatFor.
   For example if StartDateTime is a Monday and you indicated that you wanted to repeat every Thursday for 5 weeks
   we create an instance for the Monday and 5 Thursdays.  But if you say you want to repeat every Thursday,
   and StartDateTime is the first of those Thursdays we need to subtract 1 from RepeatFor so we don't create an extra instance.
%ENDREM

'Remove existing dates - replace with new item which we are about to populate
     If note.HasItem("RepeatDates") Then note.RemoveItem("RepeatDates")
     Set item = New NotesItem(note, "RepeatDates", Date)
'setting RepeatStartDate = StartDateTime ensures that the start time will be accurare
     note.RepeatStartDate = note.StartDateTime
'date1 refers to RepeatStartDate.  date2 is used to generate the RepeatDates list
     Set date1 = New NotesDateTime(note.RepeatStartDate(0))
'This clears out any existing values
     x = 1
     Redim DateList(x)
     DateList(0) = date1.LSLocalTime
     TargetWeek = ""

'Get the number of days to adjust by
     Select Case note.RepeatUnit(0)
     Case "D" '(Daily)
          Adjustment = Cint(note.RepeatInterval(0))
          Set date2 = New NotesDateTime(note.RepeatStartDate(0))
          Call date2.AdjustDay(Adjustment, True)
          If note.RepeatHow(0) = "F" Then note.RepeatFor = note.RepeatFor(0) - 1
          Gosub BuildDateList
     Case "W" '(Weekly)
'Get day of the week of startdate (LotusScript counts the days as 1-7)
          FirstDay = Weekday(date1.LSLocalTime) - 1
'If the start day is after the day we want the event to occur, adjust to next week
          RepeatAdjust = note.RepeatAdjust
          Redim DayList(Ubound(RepeatAdjust))
          Adjustment = Cint(note.RepeatInterval(0)) * 7
          For i = 0 To Ubound(RepeatAdjust)
               Set date2 = New NotesDateTime(note.RepeatStartDate(0))
               DayList(i) = Cint(RepeatAdjust(i))
               Select Case DayList(i)
               Case FirstDay
                    Call date2.AdjustDay(Adjustment, True)
                    If note.RepeatHow(0) = "F" Then note.RepeatFor = note.RepeatFor(0) - 1
               Case Is < FirstDay
                    Call date2.AdjustDay(7 - (FirstDay - DayList(i)), True)
               Case Is > FirstDay
                    Call date2.AdjustDay(DayList(i) - FirstDay, True)
               End Select
               Gosub BuildDateList
          Next
     Case "MD" '(Monthly by Date)
          FirstDay = Cint(Day(date1.LSLocalTime))
          RepeatAdjust = note.RepeatAdjust
          Redim DayList(Ubound(RepeatAdjust))
          Adjustment = Cint(note.RepeatInterval(0))
          For i = 0 To Ubound(DayList)
               Set date2 = New NotesDateTime(note.RepeatStartDate(0))
               DayList(i) = Cint(RepeatAdjust(i))
               Select Case DayList(i)
               Case FirstDay
                    Call date2.AdjustMonth(Adjustment, True)
                    If note.RepeatHow(0) = "F" Then note.RepeatFor = note.RepeatFor(0) - 1
               Case Is < FirstDay
'adjust back to the correct day
                    Call date2.AdjustDay(-1*(FirstDay - DayList(i)), True)
'adjust that day to next month
                    Call date2.AdjustMonth(Adjustment, True)
               Case Is > FirstDay
                    Call date2.AdjustDay(DayList(i) - FirstDay, True)
               End Select
               Gosub BuildDateList
          Next
     Case "MP" '(Monthly by Day)
'Get day of the week of startdate (LotusScript counts the days as 1-7)
          FirstDay = Cint(Weekday(date1.LSLocalTime) - 1)
'RepeatAdjust is stored as Week.Day
          RepeatAdjust = note.RepeatAdjust
          Redim DayList(Ubound(RepeatAdjust))
          Redim WeekList(Ubound(RepeatAdjust))
'Create 2 variant arrays, one for weeks and one for days
          For t = 0 To Ubound(DayList)
               DayList(t) = Cint(Right(RepeatAdjust(t), 1))
               WeekList(t) = Cint(Left(RepeatAdjust(t), 1))
          Next
          Adjustment = Cint(note.RepeatInterval(0))
          For i = 0 To Ubound(RepeatAdjust)
               Set date2 = New NotesDateTime(note.RepeatStartDate(0))
'Adjust to the appropriate day
               Select Case DayList(i)
               Case Is < FirstDay
                    Call date2.AdjustDay(7 - (FirstDay - DayList(i)), True)
               Case Is > FirstDay
                    Call date2.AdjustDay(DayList(i) - FirstDay, True)
               End Select
'Get the week number this date is in
               If Day(date2.LSLocalTime) Mod 7 > 0 Then
                    WeekNbr = Int(Day(date2.LSLocalTime) / 7) + 1
               Else
                    WeekNbr = Int(Day(date2.LSLocalTime) / 7)
               End If
               CurrentMonth = Month(date2.LSLocalTime)
               Do Until WeekNbr = WeekList(i)
                    Call date2.AdjustDay(7, True)
                    If Day(date2.LSLocalTime) Mod 7 > 0 Then
                         WeekNbr = Int(Day(date2.LSLocalTime) / 7) + 1
                    Else
                         WeekNbr = Int(Day(date2.LSLocalTime) / 7)
                    End If
                    If WeekList(i) = 5 And CurrentMonth <> Month(date2.LSLocalTime) Then
                         WeekNbr = 5
                         Call date2.AdjustDay(-7, True)
                    End If
               Loop
               TargetWeek = WeekList(i)
               Gosub BuildDateList
          Next
     Case "YD" '(Yearly)
          Adjustment = Cint(note.RepeatInterval(0))
          Set date2 = New NotesDateTime(note.RepeatStartDate(0))
          Call date2.AdjustYear(Adjustment, True)
          If note.RepeatHow(0) = "F" Then note.RepeatFor = note.RepeatFor(0) - 1
          Gosub BuildDateList
     Case "C"
     End Select

     x = Ubound(DateList)
     If DateList(x) = "" Then Redim Preserve DateList(x-1)
     note.RepeatDates = DateList
     Exit Sub

BuildDateList:

'Set dateitem = the last repeat date
     If note.RepeatHow(0) = "U" Then
          DatePortion = Evaluate("@Date(RepeatUntil)", note)
          TimePortion = Evaluate("@Time(StartDateTime)", note)
          Set dateItem = New NotesDateTime(DatePortion(0) & " " & TimePortion(0))
'reset the time portion of RepeatUntil
          Set note.RepeatUntil = dateItem
     Else
          Set dateitem = New NotesDateTime(note.RepeatStartDate(0))
          Select Case note.RepeatForUnit(0)
          Case "D"
               Call dateitem.AdjustDay(note.RepeatFor(0), True)
          Case "W"
               Call dateitem.AdjustDay(note.RepeatFor(0) * 7, True)
          Case "M"
               Call dateitem.AdjustMonth(note.RepeatFor(0), True)
          Case "Y"
               Call dateitem.AdjustYear(note.RepeatFor(0), True)
          End Select
     End If
'dateitem is the until date and date2 is the date we're comparing it against
'Add the correct number of days and add to the array
     Do While dateItem.TimeDifference(date2) => 0
'D means do not move
          If note.RepeatWeekends(0) <> "D" Then
               Do
                    WeekendDay = Weekday(date2.LSLocalTime)
                    If WeekendDay = 1 Or WeekendDay = 7 Then
                         Select Case note.RepeatWeekends(0)
                         Case "F"   'Move to Friday
                              If WeekendDay = 1 Then
                                   WeekendAdjust = 2
                              Else
                                   WeekendAdjust = 1
                              End If
                              Call date2.AdjustDay(-1*WeekendAdjust, True)
'if the Friday is already on the list then add back the days you just subtracted, plus the normal adjustment
                              If DateList(x-1) <> date2.LSLocalTime Then
                                   Redim Preserve DateList(x)
                                   DateList(x) = date2.LSLocalTime
                                   x = x + 1
                              End If
                              Call date2.AdjustDay(WeekendAdjust, True)
                              Call NextAdjustment(x, TargetWeek)
                         Case "M"   'Move to Monday
                              If WeekendDay = 1 Then
                                   WeekendAdjust = 1
                              Else
                                   WeekendAdjust = 2
                              End If
                              Call date2.AdjustDay(WeekendAdjust, True)
'Add Monday to DateList
                              Redim Preserve DateList(x)
                              DateList(x) = date2.LSLocalTime
                              x = x + 1
'Go back to the day you moved to Monday
                              Call date2.AdjustDay(-1 * WeekendAdjust, True)
                              Call NextAdjustment(x, TargetWeek)
                         Case "N"   'Move to the nearest weekday
                              If WeekendDay = 1 Then
                                   WeekendAdjust = 1
                              Else
                                   WeekendAdjust = -1
                              End If
                              Call date2.AdjustDay(WeekendAdjust, True)
'Add the Friday or Monday to DateList
                              If DateList(x-1) <> date2.LSLocalTime Then
                                   Redim Preserve DateList(x)
                                   DateList(x) = date2.LSLocalTime
                                   x = x + 1
                              End If
                              Call date2.AdjustDay(-1 * WeekendAdjust, True)
                              Call NextAdjustment(x, TargetWeek)
                         Case "X"   'Delete (don't create an instance for that one)
                              Call NextAdjustment(x, TargetWeek)
                         End Select
                    End If
                    WeekendDay = Weekday(date2.LSLocalTime)
               Loop Until WeekendDay > 1 And WeekendDay < 7
          End If   'End of Weekend processing
'The weekend adjustment might have adjusted us beyond the until date
          If dateItem.TimeDifference(date2) => 0 Then
               Redim Preserve DateList(x)
               DateList(x) = date2.LSLocalTime
               If DateList(x) <> DateList(x-1) Then x = x + 1
               Call NextAdjustment(x, TargetWeek)
          End If
          Loop   'this Loops until we've reached the date when we want to stop repeating

          Return

ErrorRoutine:
          Messagebox Error & " (BuildRepeatDates)"
          Exit Sub

End Sub
'++LotusScript Development Environment:2:2:NextAdjustment:1:8
Sub NextAdjustment(x, TargetWeek)

     On Error Goto ErrorRoutine

     Select Case note.RepeatUnit(0)
     Case "D", "W"
          Call date2.AdjustDay(Adjustment, True)
'If you already have one for that day adjust again
          If DateList(x-1) = date2.LSLocalTime Then Call date2.AdjustDay(Adjustment, True)
     Case "MD"
          Call date2.AdjustMonth(Adjustment, True)
     Case "MP"
          CurrentMonth = Month(date2.LSLocalTime) + 1
          Do
               Call date2.AdjustDay(7, True)
               If Day(date2.LSLocalTime) Mod 7 > 0 Then
                    WeekNbr = Int(Day(date2.LSLocalTime) / 7) + 1
               Else
                    WeekNbr = Int(Day(date2.LSLocalTime) / 7)
               End If
               If TargetWeek = 5 And CurrentMonth <> Month(date2.LSLocalTime) Then
                    WeekNbr = 5
                    Call date2.AdjustDay(-7, True)
               End If
          Loop Until WeekNbr = TargetWeek
     Case "YD"
          Call date2.AdjustYear(Adjustment, True)
     End Select

     Exit Sub

ErrorRoutine:
     Messagebox Error & " (NextAdjustment)"
     Exit Sub

End Sub
'++LotusScript Development Environment:2:1:ProcessThisDoc:1:8
Function ProcessThisDoc As Integer

     On Error Goto ErrorRoutine

     Select Case ChangeWhich
     Case "0"
          Gosub GetDates
          If date1.TimeDifference(date2) = 0 Then ProcessThisDoc = True
     Case "1"
          ProcessThisDoc = True
     Case "2"
          Gosub GetDates
          If date1.TimeDifference(date2) > 0 Then ProcessThisDoc = True
     Case "3"
          Gosub GetDates
          If date1.TimeDifference(date2) < 0 Then ProcessThisDoc = True
     End Select

     Exit Function

GetDates:
'we don't want to get the dates unless we need to check them
     If repnote.HasItem("OriginalStartDate") Then
          Set date1 = New NotesDateTime(repnote.OriginalStartDate(0))
     Else
          Set date1 = New NotesDateTime(repnote.StartDateTime(0))
     End If
     Set date2 = New NotesDateTime(child.StartDateTime(0))
     Return

ErrorRoutine:
     ProcessThisDoc = False
     Exit Function

End Function
'++LotusScript Development Environment:2:2:GetModifiedSettings:1:8
Sub GetModifiedSettings
     If repnote.HasItem("RescheduleWhich") Then
          ChangeWhich = repnote.RescheduleWhich(0)
     Else
          If (QueriedForChanges) Then Exit Sub
          CancelChange = False
          If Not ws.DialogBox("(ChangeRepeating)", True, True, False, False, False, False, "Change Repeating", repnote) Then
               CancelChange = True
               QueriedForChanges = False
               Exit Sub
          Else
               ChangeWhich = repnote.ChangeWhich(0)
               repnote.tmpRescheduleWhich = ChangeWhich
               repnote.RemoveItem("ChangeWhich")
               QueriedForChanges = True
          End If
     End If
End Sub
,    <    <
Kd    -t    #8
    Kd    -
Kd    S<
Kd    Pp
Kd    -t    #8
Kd    -t    #
    Kd    -
Kd    ,
Kd    ,D
Kd    S<
Kd    PT
Kd    PT
Kd    PT
Kd    QP
Kd    S\
Kd    Sx
Kd    Sx
Kd    S<
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "SharedWorkflowLibrary"
Use "RepeatProcessing"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub RemoveResources(doc As NotesDocument)
Declare Sub SelectResourcesToRemove
Declare Sub ProcessRepeatingResources(ChangeWhich As String,NoticeType As String,ResourceType As String)
Declare Sub InviteResources(doc As NotesDocument)
Declare Sub InviteRoom(doc As NotesDocument)
Declare Sub RescheduleResources(ResourceType As String,doc As NotesDocument)
Declare Sub CancelResources(ResourceType As String,doc As NotesDocument)
Declare Sub ProcessOneRepeatResource(NoticeType As String,ResourceType As String,doc As NotesDocument)
'++LotusScript Development Environment:2:5:(Declarations):0:10
'ResourceProcessing:
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
'++LotusScript Development Environment:2:2:RemoveResources:1:8
Sub RemoveResources(doc As NotesDocument)
    *This routine is called when resources need to be removed from a meeting
    *The doc parameter is the NotesDocument containing the resources that need to be removed
        - This allows us to pass in repeat instance documents
    *This routine is not called for cancelling a meeting
%END REM

'for each resource selected, send a cancel notice
     tmpResourcesRemoved = doc.tmpPeopleSelected
     If (tmpResourcesRemoved(0) <> "") Then
          Forall Resources In tmpResourcesRemoved
               If (Cstr(Resources) = doc.Room(0)) Then
'this is a room
                    doc.Room = ""
                    doc.RoomRequired = ""
                    Call CreateResourceNotice(ORS_MSGTYPE_CANCEL,ORS_STATE_ROOM,Cstr(Resources),doc)
               Else
'this is a resource
                    Call CreateResourceNotice(ORS_MSGTYPE_CANCEL,ORS_STATE_RESOURCE,Cstr(Resources),doc)
               End If
               Call notice.Send(False)
          End Forall
'update the resources field
          tmpUpdatedResources = Evaluate("@Replace(RequiredResources;tmpPeopleSelected;"""")",doc)
          doc.RequiredResources = tmpUpdatedResources
          Call MarkTempFields(doc)
          Call doc.Save(True,True,True)
     End If
End Sub
'++LotusScript Development Environment:2:2:SelectResourcesToRemove:1:8
Sub SelectResourcesToRemove
    *This routine gets called whenever the user wants to remove a room/resource from a meeting
    *This routine displays a dialog box that allows the user to select which resources they want removed
    *After the user makes a selection, the RemoveResources routine is called to sent out notices
%END REM

'build the list of resources to display in the dialog boc
     If(note.RoomRequired(0) = "1") And (note.Room(0) <> "") Then
'if a room is required, then include the room
          tmpResourceList = Evaluate("@Trim(RequiredResources:Room)",note)
     Else
          tmpResourceList = Evaluate("@Trim(RequiredResources)",note)
     End If

     note.tmpPeopleList = tmpResourceList
     note.tmpheader = "Select the resources you want to remove:"

     If(ws.DialogBox("(PeopleListDlg)",True,True,False,False,False,False,"Remove Resources")) Then
          If (note.HasItem("OrgRepeat")) Then Messagebox "The resources selected will be removed for the current repeat instance only.",0,"Status"
'we can only remove resources from the current repeat instance
          Call RemoveResources(note)
          Call uidoc.Save
          Call MarkTempFields(note)
          Call note.Save(True,True,True)
     End If
End Sub
'++LotusScript Development Environment:2:2:ProcessRepeatingResources:1:8
Sub ProcessRepeatingResources(ChangeWhich As String,NoticeType As String,ResourceType As String)
    *This is the main processing logic for repeating meetings and resources
    *This routine is called once the user has performed some action (reschedule, cancel, invite)
     for a repeating meeting and has determined what repeat instances will be affected (Just this one, all, etc.)
    *This routine calls ProcessOneRepeatResource, which handles one repeat instance at a time, passing it the document
     object that represents the repeat instance and other parameters as well
    *Parameters
        ChangeWhich is the repeat documents the user wants to modify (Just this one, all, etc.)
        NoticeType is the type of notice being sent
        ResourceType to determine if this is a room or a resource
%END REM

     On Error Resume Next
'determine which repeat instances to process
     Select Case ChangeWhich
     Case "0"
'we only want to change this document
          Call ProcessOneRepeatResource(NoticeType,ResourceType,note)
     Case "1"
'we want to change all instances
          Forall ids In parentnote.RepeatIds
               Set child = db.GetDocumentByUNID(Cstr(ids))
               If Not(child Is Nothing) Then Call ProcessOneRepeatResource(NoticeType,ResourceType,child)
          End Forall
     Case "2"
'we want to invite all previous instances
          Forall ids In parentnote.RepeatIds
               Set child = db.GetDocumentByUNID(Cstr(ids))
               If Not(child Is Nothing) Then
                    If (child.StartDateTime(0) <= note.StartDateTime(0)) Then Call ProcessOneRepeatResource(NoticeType,ResourceType,child)
               End If
          End Forall
     Case "3"
'we want to invite all future instances
          Forall ids In parentnote.RepeatIds
               Set child = db.GetDocumentByUNID(Cstr(ids))
               If Not(child Is Nothing) Then
                    If (child.StartDateTime(0) >= note.StartDateTime(0)) Then Call ProcessOneRepeatResource(NoticeType,ResourceType,child)
               End If
          End Forall
     End Select
End Sub
'++LotusScript Development Environment:2:2:InviteResources:1:8
Sub InviteResources(doc As NotesDocument)
    *This routine gets  called whenever the user invites resources to a meeting
    *This routine is passed a document object for the meeting to be processed
     This allows us to handle repeating meetings
    *This function should only be called when the Resources item is not NULL
    *This function appends values in the Resources item to the RequiredResources item and
     sets the Resources item to NULL
%END REM

     tmpResourcesToInvite = doc.Resources
     tmpResourcesInvited = Evaluate("@Trim(RequiredResources)",doc)

'make sure we have resources to process in case this function was accidentally called
     If (tmpResourcesToInvite(0) = "") Then Exit Sub
'get the starting sequence of resources to be added to the array
     If (tmpResourcesInvited(0) = "") Then
          x = Ubound(tmpResourcesInvited)
     Else
          x = Ubound(tmpResourcesInvited)+ 1
     End If
     Redim Preserve tmpResourcesInvited(x + Ubound(tmpResourcesToInvite))

     Forall Resources In tmpResourcesToInvite
          Call CreateResourceNotice(ORS_MSGTYPE_INVITE,ORS_STATE_RESOURCE,Cstr(Resources),doc)
          Call notice.Send(False)
          tmpResourcesInvited(x) = Resources
          x = x+1
     End Forall
'update the required resources items
     doc.RequiredResources = tmpResourcesInvited
'remove the just invited resources
     doc.Resources = ""
     Call MarkTempFields(doc)
     Call doc.Save(True,True,True)
End Sub
'++LotusScript Development Environment:2:2:InviteRoom:1:8
Sub InviteRoom(doc As NotesDocument)
    *This routine gets  called whenever the user invites a room to a meeting
    *This routine is passed a document object for the meeting to be processed
     This allows us to handle repeating meetings
    *This function should only be called when the RoomToReserve item is not NULL
    *This function sets the RoomToReserve item to NULL
%END REM

'make sure we have a room to process
     If (doc.Room(0) = "") Or Not(note.HasItem("Room")) Then Exit Sub
'create the invitation
     Call CreateResourceNotice(ORS_MSGTYPE_INVITE,ORS_STATE_ROOM,doc.Room(0),doc)
     doc.RoomToReserve = ""
     Call notice.Send(False)
     Call MarkTempFields(doc)
     Call doc.Save(True,True,True)
End Sub
'++LotusScript Development Environment:2:2:RescheduleResources:1:8
Sub RescheduleResources(ResourceType As String,doc As NotesDocument)
    *This routine is called whenever a room/resources need to be rescheduled due to a meeting change
    *The ResourceType determines whether we are rescheduling a room or a resource
    *The doc is the document object that is being rescheduled
%END REM

     Select Case ResourceType
     Case ORS_STATE_RESOURCE
          tmpResourcesInvited = doc.RequiredResources
'if there are resources and this is a date change (we don't reschedule resources for room changes)
          If (tmpResourcesInvited(0) <> "") Then
               Forall Resources In tmpResourcesInvited
                    Call CreateResourceNotice(ORS_MSGTYPE_RESCHEDULE,ORS_STATE_RESOURCE,Cstr(Resources),doc)
                    Call notice.Send(False)
               End Forall
          End If
     Case ORS_STATE_ROOM
          If (doc.RoomRequired(0) = "1") And (doc.Room(0) <> "") Then
               Call CreateResourceNotice(ORS_MSGTYPE_RESCHEDULE,ORS_STATE_ROOM,doc.Room(0),doc)
               Call notice.Send(False)
          End If
     End Select
End Sub
'++LotusScript Development Environment:2:2:CancelResources:1:8
Sub CancelResources(ResourceType As String,doc As NotesDocument)
    *This routine is called to whenver the user wants to cancel a meeting
    *The ResourceType determines whether we are rescheduling a room or a resource
    *The doc is the document object that is being cancelled
%END REM

     Select Case ResourceType
     Case ORS_STATE_RESOURCE
          tmpResourcesInvited = doc.RequiredResources
          If (tmpResourcesInvited(0) <> "") Then
               Forall Resources In tmpResourcesInvited
                    Call CreateResourceNotice(ORS_MSGTYPE_CANCEL,ORS_STATE_RESOURCE,Cstr(Resources),doc)
                    Call notice.Send(False)
               End Forall
          End If
     Case ORS_STATE_ROOM
          If (doc.RoomRequired(0) = "1") And (doc.Room(0) <> "") Then
               Call CreateResourceNotice(ORS_MSGTYPE_CANCEL,ORS_STATE_ROOM,doc.Room(0),doc)
               Call notice.Send(False)
          End If
     End Select
End Sub
'++LotusScript Development Environment:2:2:ProcessOneRepeatResource:1:8
Sub ProcessOneRepeatResource(NoticeType As String,ResourceType As String,doc As NotesDocument)
    *This routine is called from ProcessRepeatingResources to handle repeating meetings
    *This routine in turn calls other functions based upon the action the user is taking
    *Parameters
                NoticeType is the type of notice being sent
                ResourceType determines if this is a room or resrouce
                doc is the document object representing the meeting to process
%END REM

     Select Case NoticeType
     Case ORS_MSGTYPE_INVITE
'we are inviting a room/resources
          If (ResourceType = ORS_STATE_RESOURCE) Then
               Call InviteResources(doc)
          Else
               Call InviteRoom(doc)
          End If
     Case ORS_MSGTYPE_RESCHEDULE
'the meeting is being rescheduled
          Call RescheduleResources(ResourceType,doc)
     Case ORS_MSGTYPE_CANCEL
'the meeting is being cancelled
          Call CancelResources(ResourceType,doc)
     Case "Remove"
'we are removing a room/resources from the meeting
          Call RemoveResources(doc)
     End Select
End Sub
Q\    JL
RequiredResources
tmpPeopleSelected
    0S0E
RequiredResources
    0S0E
RequiredResources
    0S0E
RequiredResources
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
8kg2x
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
%INCLUDE "lsconst.lss"
%INCLUDE "lsxbeerr.lss"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub UpdateTasks
Declare Sub CheckDueDate
Declare Sub CheckStartDate
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim s As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim note As NotesDocument
Dim reply As NotesDocument
Dim responses As NotesDocumentCollection
Dim dt As NotesDateTime
Dim nextnote As NotesDocument
Dim DueDate As Variant
Dim StartDate As Variant
'++LotusScript Development Environment:2:2:UpdateTasks:1:8
Sub UpdateTasks

     Set dt = New NotesDateTime(Today)

     Set s = New NotesSession
     Set db = s.CurrentDatabase
     Set view = db.GetView("($ToDo)")

     On Error Resume Next

     Set note = view.GetFirstDocument
     If note Is Nothing Then Exit Sub
     Set nextnote = view.GetNextDocument(note)
     If nextnote.Form(0) <> "Task" Then
          Do
               Set nextnote = view.GetNextDocument(nextnote)
          Loop Until (nextnote.Form(0) = "Task") Or (nextnote Is Nothing)
     End If

     Do
          If note.Form(0) = "Task" Then
               If note.AssignState(0) = 2 Then
                    DoneCount = 0
                    Set responses = note.Responses
                    If responses.Count > 0 Then
                         For r = 1 To responses.Count
                              Set reply = responses.GetNthDocument(r)
                              DueState = reply.DueState
                              If Val(DueState(0)) = 9 Then DoneCount = DoneCount + 1
                         Next
                         AssignedTo = note.AssignedTo
                         If DoneCount = Ubound(AssignedTo)  + 1 Then
                              note.AssignState = 9
                              note.DueState = 9
                              Call note.ReplaceItemValue("_ViewIcon", 82)
                              note.CompletedDateTime = dt.LSLocalTime
                         End If
                    End If
               End If
               If note.AssignState(0) < 8 Then
                    DueDate = note.DueDateTime
                    StartDate = note.StartDateTime
                    If StartDate(0) = "" Then
                         If DueDate(0) = "" Then
                              note.DueState = 1
                         Else
                              CheckDueDate
                         End If
                    Else
                         CheckStartDate
                         DueState = note.DueState
                         If DueDate(0) <> "" And DueState(0) <> 2 Then CheckDueDate
                    End If
               End If
               note.Save True, True, True
          End If
          Set note = nextnote
          Do
               Set nextnote = view.GetNextDocument(nextnote)
          Loop Until (nextnote.Form(0) = "Task") Or (nextnote Is Nothing)
     Loop Until (Err = lsERR_NOTES_DOC_NOTINVIEW) Or (note Is Nothing)

End Sub
'++LotusScript Development Environment:2:2:CheckDueDate:1:8
Sub CheckDueDate

'DueState causes the view to sort correctly:  0=Overdue, 1=Current, 2=Future
     Set dt2 = New NotesDateTime(DueDate(0))
     If dt.TimeDifference(dt2) > 0 Then
          note.DueState = 0
     Else
          note.DueState = 1
     End If

End Sub
'++LotusScript Development Environment:2:2:CheckStartDate:1:8
Sub CheckStartDate

'DueState causes the view to sort correctly:  0=Overdue, 1=Current, 2=Future
     Set dt2 = New NotesDateTime(StartDate(0))
     If dt.TimeDifference(dt2) < 0 Then
          note.DueState = 2
     Else
          note.DueState = 1
     End If

End Sub
:`6`6
"(&04
"($|5
(#h%86
H$H%<8
h$h&x8
$H(X9
&h'`;
'(.<=
('H'x=
((h-H?
(H)@@
H)H*PA
)(+4B
)h+dB
h*H-@C
,h,8F
(,H/tF
(.H.<J
.h/\K
/(1lM
H1h1LP
2$7XR
9x:x:
$747 S
9}|T#
[$7KP6,89#
8KP6,h9G$7#
8KP6,h9G
7K$7-
^h:4C
^L:K47P\:
^x:K$7P
K$7Q\:
8K$7P
8K$7P
K$7Q\:
^L:K$7P\:
8KP6,h9G
8,8<J(<
K$7Q\:
K$7Q\:
8,8<Jh<
K$7Q\:
K$7Q\:
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
,F5!9/
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "ObjectVariables"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Type NoticeInfo
Declare Type InviteeTable
Declare Sub Initialize
Declare Sub UpdateOriginalInvitation (orgnote As NotesDocument)
Declare Function CheckIfConflictExists As Integer
Declare Sub AddInviteeComment
Declare Sub CreateNoticeDocument(Subject As String,NoticeType As String,ViewIcon As Integer,Mode As Integer)
Declare Function GetContext As Integer
Declare Sub ResurrectParentDoc
Declare Sub CreateResourceNotice(NoticeType As String,ResourceType As String,ResourceName As String,doc As NotesDocument)
Declare Function IsRemoved(KeyValue As String,UserType As String) As Integer
Declare Function ProcessConflict(othernote As NotesDocument) As Integer
Declare Function CheckProfileTimes(doc As NotesDocument) As Integer
Declare Function GetSubjectText(userDate As Variant) As String
Declare Function GetContextSub ( targetnote As NotesDocument ) As Integer
'++LotusScript Development Environment:2:5:(Declarations):0:10
Type NoticeInfo
     creationdate As Variant
     apptdate As Variant 'used by confirmation message
     appttime As Variant 'used by confirmation message
     sequencenum As Integer
     misc1 As String            'for invitee responses, this will be their name; for chair updates, this is the status
     action As String
     misc2 As String   'for invitee responses, this will be the delegees name; for chair updates, this is the document's unid
     state As String     'for invitee responses, this will determine if a response is from a resource or not
End Type
Type InviteeTable
     CreationDate As Variant
     SequenceNum As Integer
     InviteeName As String
     Domain As String
     Status As String
     State As String
     Delegee As String
     KeepPosted As String
End Type
Dim OriginalRoom As String
Dim OriginalStartDate As Variant
Dim OriginalEndDate As Variant
Dim OriginalRequired As Variant
Dim OriginalOptional As Variant
Dim OriginalTimeRange As Variant
Dim OriginalType As String
Dim IsDateChange As Integer
Dim IsRoomChange As Integer
Dim OpenReschedule As Integer
Dim OpenRepeatParent As Integer
'used by the noticeresponses and appointmentresponses libraries
Dim view As NotesView
Dim response As NotesDocument
Dim numResponses As Integer
Dim IsAgentProcessing As Integer
Const CS_INVITEE_INDEX = 10
Const ORG_STATUS_WAITING = "W"
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
'++LotusScript Development Environment:2:2:UpdateOriginalInvitation:1:8
Sub UpdateOriginalInvitation (orgnote As NotesDocument)
    *This routine is called by several other routines to update a particular note (orgnote)
     whenever the user takes a specific action
    *Orgnote is the document object to be updated
%END REM

     On Error Goto ErrorRoutine

     If (orgnote Is Nothing) Then Exit Sub

'the following are some changes we make regardless of the action being performed
     orgnote.StartDateTime = note.StartDateTime
     orgnote.EndDateTime = note.EndDateTime
     orgnote.Room = note.Room
     orgnote.StartDate = note.StartDate

     If IsWebClient Then
          tmpFrom = notice.From
     Else
          tmpFrom = session.Username
          Call MarkTempFields(orgnote)
     End If

     Select Case note.tmpAction(0)
     Case "Accept","AddCalendar","PencilIn"
'we are acceptring an invitation -> mark the document as an appointment
          orgnote.Form = "Appointment"
             Set trdr = session.CreateDateRange
             Set startdt = New NotesDateTime(note.StartDateTime(0))
             Set enddt = New NotesDateTime(note.EndDateTime(0))
             Set trdr.StartDateTime = startdt
             Set trdr.EndDateTime = enddt
             Set orgnote.TimeRange = trdr
          orgnote.CalendarDateTime = note.StartDateTime
          orgnote.StartDate = note.StartDate
          If (note.tmpAction(0) = "PencilIn") Then
               Call orgnote.ReplaceItemValue("$BusyPriority","2")
               orgnote.BookFreeTime = "1"
          Else
               Call orgnote.ReplaceItemValue("$BusyPriority","1")
          End If
          orgnote.OrgTable = ORS_ITEM_CALENDAR
          orgnote.NoticeType = ORS_MSGTYPE_ACCEPT
          Call orgnote.ReplaceItemValue("_ViewIcon",158)
          If Not(orgnote.HasItem("RepeatDates") And orgnote.HasItem("OrgRepeat")) Then Call orgnote.ReplaceItemValue("$BusyName",Owner)
          orgnote.Subject = note.Topic
'check to see if we should automatically set an alarm
          If (profile.EnableAlarms(0) = "1") And (profile.AutoSetAlarms(0) = "1") And (profile.SetAlarmAppointment(0) = "1") Then
               Call orgnote.ReplaceItemValue("$Alarm",1)
               Call orgnote.ReplaceItemValue("$AlarmDescription",note.Topic)
               Call orgnote.ReplaceItemValue("$AlarmOffset", -1 * profile.AppointmentLead(0))
               If Not(orgnote.HasItem("RepeatIds")) Then Call orgnote.PutInFolder("$Alarms")
          Else
               Call orgnote.RemoveItem("$Alarm")
               Call orgnote.RemoveItem("$AlarmDescription")
               Call orgnote.RemoveItem("$AlarmOffset")
          End If
'if the autoprocessing agent is running, then we need to remove some fields
          If (IsAgentProcessing) Then
               Call orgnote.RemoveItem("MailOptions")
               Call orgnote.RemoveItem("SendTo")
          End If
'if the profile says we shouldn't double book, then update the OrgDontDoubleBook item
          If (profile.CheckMeeting(0) = "1") Then orgnote.OrgDontDoubleBook = "1"
'if the profile says hide new entries from public viewing, then remove the $PublicAccess bit
          If (profile.CalEntryHide(0) = "1") Then Call orgnote.RemoveItem("$PublicAccess")
          Call orgnote.ReplaceItemValue("$NoPurge",orgnote.EndDateTime(0))
'update the original invitation only if this is a response document
          If Not (parentnote Is Nothing) Then orgnote.SequenceNum = note.SequenceNum
          Call orgnote.Save(True,True,True)
     Case "Decline"
          orgnote.Form = "Notice"
          orgnote.Subject = "Appointment Declined - " & note.Topic(0)
          Call orgnote.ReplaceItemValue("_ViewIcon",84)
          orgnote.NoticeType = ORS_MSGTYPE_REJECT
          orgnote.From = tmpFrom
          orgnote.Principal = Owner
          orgnote.OrgTable = ""
'the invitee might have accepted, so remove the calendar and update busy items
          Call orgnote.RemoveItem("CalendarDateTime")
          Call orgnote.ReplaceItemValue("$BusyPriority","2")
'update the original invitation only if this is a response document
          If Not (parentnote Is Nothing) Then orgnote.SequenceNum = note.SequenceNum
          Call orgnote.Save(True,True,True)
     Case "Delegate"
          orgnote.Form = "Notice"
          orgnote.Subject = "Appointment Delegated - " & note.Topic(0)
          Call orgnote.ReplaceItemValue("_ViewIcon",84)
          orgnote.NoticeType = ORS_MSGTYPE_DELEGATING
          orgnote.From = tmpFrom
          orgnote.Principal = Owner
          orgnote.OrgTable = ""
          Call orgnote.RemoveItem("OrgState")
'the invitee might have accepted, so remove the calendar and update busy items
          Call orgnote.RemoveItem("CalendarDateTime")
          Call orgnote.ReplaceItemValue("$BusyPriority","2")
'update the original invitation only if this is a response document
          If Not (parentnote Is Nothing) Then orgnote.SequenceNum = note.SequenceNum
          Call orgnote.Save(True,True,True)
     Case "CounterPropose"
          orgnote.NoticeType = ORS_MSGTYPE_COUNTER
          orgnote.Subject = "Appointment Change Proposal - " & note.Topic(0)
          orgnote.From = tmpFrom
          orgnote.Principal = Owner
          orgnote.ProposalSent = True
          Call orgnote.ReplaceItemValue("_ViewIcon",39)
'update the original invitation only if this is a response document
          If Not (parentnote Is Nothing) Then orgnote.SequenceNum = note.SequenceNum
          Call orgnote.Save(True,True,True)
     Case "AcceptCounterProposal"
          orgnote.StartDate = note.NewDate
          Set trdr = session.CreateDateRange
          trdr.Text = uidoc.FieldGetText("NewTimeRange")

          Set startdt = New NotesDateTime(uidoc.FieldGetText("NewDate") & " " & trdr.StartDateTime.TimeOnly)
          Set enddt = New NotesDateTime(uidoc.FieldGetText("NewDate") & " " & trdr.EndDateTime.TimeOnly)

          Set orgnote.StartDateTime = startdt
          Set orgnote.EndDateTime = enddt
          Set orgnote.TimeRange = trdr
          If (note.NewRoom(0) <> "") Then orgnote.Room = note.NewRoom
          orgnote.CalendarDateTime = orgnote.StartDateTime
          orgnote.SequenceNum = orgnote.SequenceNum(0) + 1
          Call orgnote.ReplaceItemValue("$NoPurge",orgnote.EndDateTime(0))
          Call orgnote.Save(True,True,True)
     End Select
     Exit Sub

ErrorRoutine:
     Messagebox Error & " (UpdateOriginalInvitation)"
     Exit Sub
End Sub
'++LotusScript Development Environment:2:1:CheckIfConflictExists:1:8
Function CheckIfConflictExists As Integer
    *This function is called only if the user specifies conflict warnings in the profile
    *This function can be called when creation or accepting meeting documents
    *The AutoProcessNotices agent ALWAYS calls this routine
    *This routine determines if a meeting time fits within the profile settings and is available
%END REM
     Dim calentries As NotesDocumentCollection
     Dim localView As NotesView
     Dim othernote As NotesDocument
     Dim tr As NotesDateRange
     Dim sdt As NotesDateTime
     Dim edt As NotesDateTime
     Dim intl As NotesInternational
     Dim nstartitem As NotesItem     'note startdatetime item
     Dim nenditem As NotesItem      'note enddatetime item
     Dim ostartitem As NotesItem      'othernote startdatetime item
     Dim oenditem As NotesItem      'othernote enddatetime item
     Dim nstartdt As NotesDateTime
     Dim nenddt As NotesDateTime
     Dim ostartdt As NotesDateTime
     Dim oenddt As NotesDateTime

'first, check the profile settings -> if there is a conflict in the profile, then we don't need to check with existing appointments
'we only do this check if the autoprocessing agent is running
     If (IsAgentProcessing) Then
          If(CheckProfileTimes(note)) Then
               CheckIfConflictExists  = True
               Exit Function
          End If
     End If

     On Error Goto ErrorRoutine
     Set localView = db.GetView("Calendar")
     Set intl = session.International
     CheckIfConflictExists = False
'get all of the documents that fit under the invited day
'othernote refers to existing appointments
     Set nstartitem = note.GetFirstItem("StartDateTime")
     Set nenditem = note.GetFirstItem("EndDateTime")
     Set sdt = New NotesDateTime(nstartitem.DateTimeValue.DateOnly & " 00" & intl.TimeSep & "00" & intl.TimeSep & "01")
   'if this is an event, use the enddatetime date
     If (note.AppointmentType(0) = "2") Then
          Set edt = New NotesDateTime(nenditem.DateTimeValue.DateOnly & " 23" & intl.TimeSep & "59" & intl.TimeSep & "59")
     Else
          Set edt = New NotesDateTime(nstartitem.DateTimeValue.DateOnly & " 23" & intl.TimeSep & "59" & intl.TimeSep & "59")
     End If
     Set tr = session.CreateDateRange
     Set tr.StartDateTime = sdt
     Set tr.EndDateTime = edt
     Set nstartdt = New NotesDateTime(sdt.DateOnly & " " & nstartitem.DateTimeValue.TimeOnly)
     Set nenddt = New NotesDateTime(sdt.DateOnly & " " & nenditem.DateTimeValue.TimeOnly)

'if the agent is running, we should mark the OrgDontDoubleBook item on the note
     If (IsAgentProcessing) Then note.OrgDontDoubleBook = "1"
     Set calentries = localView.GetAllDocumentsByKey(tr, False)

     Set othernote = calentries.GetFirstDocument
     Do While Not(othernote Is Nothing)
          If (othernote.Form(0) <> "Task") Then
               Set ostartitem = othernote.GetFirstItem("StartDateTime")
check to see if
       the invited StartDateTime falls between a scheduled appointment,
       the invited EndDateTime falls between a scheduled appointment,
       the invitation surrounds an existing appointment
date1 = the Starting time of the othernote; date2 = the ending time of the othernote; dateItem = the starttime of the invitation,dateItem2 = the endtime of the invitation
%END REM
               Set oenditem = othernote.GetFirstItem("EndDateTime")

'if the other document is not busy (i.e. is PencilledIn), then we don't need to check it
               If (othernote.BookFreeTime(0) <> "1") Then
                    If(ProcessConflict(othernote)) Then
'we need to instantiate the date/time objects correctly
'othernote could be an event so the date portion of StartDateTime and EndDateTime are incorrect, but NIF return them to us
                         Set ostartdt = New NotesDateTime(nstartdt.DAteOnly & " " & ostartitem.DateTimeValue.TimeOnly)
                         Set oenddt = New NotesDateTime(nstartdt.DAteOnly & " " & oenditem.DateTimeValue.TimeOnly)

                         If ((nstartdt.TimeDifference(ostartdt) >= 0) And (oenddt.TimeDifference(nstartdt) > 0 )) Or _
                         ((nenddt.TimeDifference(ostartdt) > 0) And (oenddt.TimeDifference(nenddt) >= 0 )) Or _
                         ((ostartdt.TimeDifference(nstartdt) >= 0) And (nenddt.TimeDifference(oenddt) > 0 )) Then
'if the autoprocessing agent is running, simply return
                              If (IsAgentProcessing) Then
                                   CheckIfConflictExists = True
                                   Exit Do
                              End If
                              If (note.Form(0) = "Appointment") Then
                                   MessageText$ = "Do you want to schedule this appointment anyway?"
                              Else
                                   MessageText$ = "Do you want to Accept anyway?"
                              End If
                              If Messagebox("There is already an appointment in this time slot. " & MessageText$, _
                              MB_YESNO, "Conflict") = IDNO Then
                                   CheckIfConflictExists = True
                                   Exit Do                                                           'we exit so that we don't waste time iterating through the view
                              Else
                                   Exit Do                                                           'we exit so that we don't waste time iterating through the view
                              End If
                         End If
                    End If
               End If
          End If
          Set othernote = calentries.GetNextDocument(othernote)
     Loop
     Exit Function

ErrorRoutine:
     Messagebox Error & " (CheckIfConflictExists)"
     Exit Function
End Function
'++LotusScript Development Environment:2:2:AddInviteeComment:1:8
Sub AddInviteeComment
    *This routine is called to include invitee's comments
%END REM

     notice.IncludeComment = "1"
     notice.Comments = note.Comments
End Sub
'++LotusScript Development Environment:2:2:CreateNoticeDocument:1:8
Sub CreateNoticeDocument(Subject As String,NoticeType As String,ViewIcon As Integer,Mode As Integer)
    *This routine creates the outgoing notice document, either from the chair to the invitee's
     or from an invitee to a chair
    *This routine adds standard fields to the notice regardless of the type of notice
    *Parameters
                Subject -> value of subject item
                NoticeType -> type of notice being sent
                ViewIcon -> icon to display in view
                Mode -> 1 = chair is sending, 2 = invitee is sending
%END REM

     Dim ChairItem As NotesItem
     Dim dummydoc As NotesDocument

'create the notice object
     Set notice = New NotesDocument(db)
'determine the context of the current note
     Context = GetContext
     Select Case Context
     Case 1,3
'1 = non-repeat notice, 3 = repeat notice -> make the notice doc a response to the parentnote
          If(note.HasItem("ApptUNID")) Then
               If(note.ApptUNID(0) <> parentnote.UniversalID) Then
                    Set dummydoc = New NotesDocument(db)
                    dummydoc.UniversalID = note.ApptUNID(0)
                    Call notice.MakeResponse(dummydoc)
                    notice.ApptUNID = note.ApptUNID
               Else
                    Call notice.MakeResponse(parentnote)
                    notice.ApptUNID = parentnote.UniversalID
               End If
          Else
               Call notice.MakeResponse(parentnote)
               notice.ApptUNID = parentnote.UniversalID
          End If
     Case 2,4
'2 = repeat instance, 4 = non-repeat instance -> make the notice doc a response to the current note
          If(note.HasItem("ApptUNID")) Then
               If(note.ApptUNID(0) <> note.UniversalID) Then
                    Set dummydoc = New NotesDocument(db)
                    dummydoc.UniversalID = note.ApptUNID(0)
                    Call notice.MakeResponse(dummydoc)
                    notice.ApptUNID = note.ApptUNID
               Else
                    Call notice.MakeResponse(note)
                    notice.ApptUNID = note.UniversalID
               End If
          Else
               Call notice.MakeResponse(note)
               notice.ApptUNID = note.UniversalID
          End If
     End Select

     Call notice.ReplaceItemValue("$RefOptions","1")
'add default items regardless of notice type
     notice.Form = "Notice"
     notice.StartDate = note.StartDate
     notice.StartDateTime = note.StartDateTime
     notice.EndDateTime = note.EndDateTime
     notice.AppointmentType = "3"
     notice.SequenceNum = note.SequenceNum(0)
     notice.ExcludeFromView = "D"
     notice.Room = note.Room
     notice.Principal = Owner
     notice.NoticeType = NoticeType
     notice.Broadcast = note.Broadcast
'add the required attendees -> we need to know what context the current document is in
'this is because non-repeat notices, repeat notices, and non-repeat appointments have this information
'repeat instances need to get this info from their parent
     Select Case Context
     Case 1,3,4
'1 = non-repeat notice,3 = repeat notice,4 = non-repeat instance -> get the values from the current note
          notice.RequiredAttendees = note.RequiredAttendees
          notice.OptionalAttendees = note.OptionalAttendees
     Case 2
'the repeat instance document does not have this information -> get it from the parent
          notice.RequiredAttendees = parentnote.RequiredAttendees
          notice.OptionalAttendees = parentnote.OptionalAttendees
     End Select
     Call notice.ReplaceItemValue("_ViewIcon",ViewIcon)
     If (note.HasItem("$PublicAccess")) Then Call notice.ReplaceItemValue("$PublicAccess","1")
     If note.HasItem("tmpRescheduleWhich") Then
          If (NoticeType = ORS_MSGTYPE_STATUSUPDATE) Then
               notice.RescheduleWhich = "0" 'just this one
          Else
               notice.RescheduleWhich = note.tmpRescheduleWhich
          End If
     End If
     If (note.HasItem("OrgRepeat")) Then
          notice.OrgRepeat = True
          notice.Broadcast = "1"
          notice.OriginalStartDate = OriginalStartDate
          notice.RepeatParentUNID = note.ParentDocumentUNID
     End If
'add computed items
     If (mode = 1) Then
'we are the chair sending this out
          notice.Topic = note.Subject
          Set startitem = note.GetFirstItem("StartDateTime")
          If (note.Room(0) <> "") Then
               notice.Subject = Subject & " " & note.Subject(0) & " (" & GetSubjectText(startitem.DateTimeValue.LSLocalTime) & " in " & note.Room(0) & ")"
          Else
               notice.Subject = Subject & " " & note.Subject(0) & " (" & GetSubjectText(startitem.DateTimeValue.LSLocalTime) & ")"
          End If
          notice.Chair = Owner
'for 4.51+, we only include the body field if the chair is sending the notice
          If (note.HasItem("Body")) Then
               Set ChairItem = note.GetFirstItem("Body")
               Call notice.CopyItem(ChairItem,"Body")
          End If
'we do not add the send to for chairs; this is upto the calling function
     Else
'we are the invitee sending this out
          notice.Topic = note.Topic
          notice.Subject = Subject & " " & note.Topic(0)
          notice.Chair = note.Chair
          'if this is a delegation notice, include the body
          If (NoticeType = ORS_MSGTYPE_DELEGATE) Then
               If (note.HasItem("Body")) Then
                    Set ChairItem = note.GetFirstItem("Body")
                    Call notice.CopyItem(ChairItem,"Body")
               End If
          End If
     End If
End Sub
'++LotusScript Development Environment:2:1:GetContext:1:8
Function GetContext As Integer
     GetContext = GetContextSub (note)
End Function
'++LotusScript Development Environment:2:2:ResurrectParentDoc:1:8
Sub ResurrectParentDoc
    *This routine is called whenever a child document is opened and the parentnote cannot be found
    *This routine creates a parent document and uses the child document for certain info
%END REM
     Dim body As NotesItem

     Set parentnote = New NotesDocument(db)

     If (note.HasItem("Body")) Then
                Set body = note.GetFirstItem("Body")
          Call parentnote.CopyItem(body,"Body")
     End If
'add standard fields
     parentnote.UniversalID = note.ParentDocumentUNID
     parentnote.StartDate = note.StartDate
     parentnote.StartDateTime = note.StartDateTime
     parentnote.EndDateTime = note.EndDateTime
     parentnote.AppointmentType = "3"
     parentnote.Chair = note.Chair
     parentnote.RequiredAttendees = note.RequiredAttendees
     parentnote.OptionalAttendees = note.OptionalAttendees
     parentnote.Room = note.Room
     parentnote.ExcludeFromView = "D"
     parentnote.SequenceNum = note.SequenceNum
     parentnote.Subject = note.Topic
     parentnote.Topic = note.Topic
     parentnote.Principal = note.Chair
     parentnote.Form = "Appointment"
     parentnote.From = note.From
     parentnote.NoticeType = ORS_MSGTYPE_ACCEPT
     Call parentnote.ReplaceItemValue("$BusyName",Owner)
     Call parentnote.ReplaceItemValue("$BusyPriority","1")
     Call parentnote.ReplaceItemValue("$NoPurge",parentnote.EndDateTime(0))
     Call parentnote.ReplaceItemValue("$ExpandGroups","3")
     Call parentnote.ReplaceItemValue("$PublicAccess","1")
     Call parentnote.ReplaceItemValue("_ViewIcon",158)
     Set sdt = New NotesDateTime(parentnote.StartDateTime(0))
     Set edt = New NotesDateTime(parentnote.EndDateTime(0))
     Set tr = session.CreateDateRange
     Set tr.StartDateTime = sdt
     Set tr.EndDateTime = edt
     Set parentnote.TimeRange = tr
     parentnote.PostedDate = parentnote.StartDateTime
     parentnote.CalendarDateTime = parentnote.StartDateTime
     parentnote.BookFreeTime = "0"
     parentnote.OrgTable = ORS_ITEM_CALENDAR

     If (note.HasItem("FromDomain")) Then parentnote.FromDomain = note.FromDomain

     Call MarkTempFields(parentnote)
     Call parentnote.Save(True,True,True)
     Call parentnote.RemoveFromFolder("($Inbox)")
End Sub
'++LotusScript Development Environment:2:2:CreateResourceNotice:1:8
Sub CreateResourceNotice(NoticeType As String,ResourceType As String,ResourceName As String,doc As NotesDocument)
    *This routine is called to create a notice document for rooms/resources
    *Paramaters
                NoticeType is the type of notice being sent
                ResourceType is the type of resource we sending the notice to
                ResourceName is the name of the resource we are mailing to (in Abbreviated format)
                doc is the document that contains values we want to copy from to include on the notice (useful for repeats!)
%END REM

     Set notice = New NotesDocument(db)

     notice.Form = "Notice"
     notice.StartDate = doc.StartDate
     notice.StartDateTime = doc.StartDateTime
     notice.EndDateTime = doc.EndDateTime
     notice.TimeRange = doc.TimeRange
     notice.Principal = Owner
     notice.Chair = Owner
'get the context of the current note
     context = GetContext
     Select Case context
     Case 1,3:
'1 = non-repeat notice,3 = repeat notice -> use parentnote values
          notice.ApptUNID = parentnote.UniversalId
          notice.SequenceNum = parentnote.SequenceNum(0)
     Case 2,4
'2 = repeat instance, 4 = non-repeat instance -> use the document passed in
          notice.ApptUNID = doc.UniversalID
          If Not(doc.HasItem("SequenceNum")) Then doc.SequenceNum = 1
          notice.SequenceNum = doc.SequenceNum(0)
     End Select
     notice.NoticeType = NoticeType
     notice.OrgState = ResourceType
     notice.SendTo = ResourceName
     notice.ResourceName = ResourceName
     notice.Topic = doc.Subject
     If (doc.HasItem("$PublicAccess")) Then Call notice.ReplaceItemValue("$PublicAccess","1")
'if this is a room, add the capacity
     If (ResourceType = ORS_STATE_ROOM) Then
          notice.Capacity = Evaluate("@Elements(@Trim(RequiredAttendees:OptionalAttendees:Chair))",doc)
          If (doc.HasItem("OriginalRoom")) Then notice.OriginalRoom = doc.OriginalRoom
     End If
'if this is a notice for a repeat set, add the necessary items
     If (doc.HasItem("RepeatDates")) Then
          notice.RepeatDates = doc.RepeatDates
          notice.RepeatIds = doc.RepeatIds
     Else
          If (doc.HasItem("OrgRepeat")) Then notice.OrgRepeat = True
     End If
End Sub
'++LotusScript Development Environment:2:1:IsRemoved:1:8
Function IsRemoved(KeyValue As String,UserType As String) As Integer
    *This function is used to determine if a user/resource has been uninvited from a meeting
 *This function is used to determine if a resource/room should not be displayed in the Invitee Responses dialog
%END REM

     Dim index As Integer
     Dim keyname As New NotesName(KeyValue)
     Dim lookupname As NotesName

     IsRemoved = False

     Select Case UserType
     Case ORS_STATE_RESOURCE
'this is a resource, look to see if this resource is in the RequiredResources field; if it isn't, it was uninvited
          tmpResourcesInvited = note.RequiredResources
          index = 0
          Do While (index <= Ubound(tmpResourcesInvited))
               Set lookupname = New NotesName(tmpResourcesInvited(index))
               If (Lcase(keyname.Canonical) = Lcase(lookupname.Canonical)) Then Exit Function
               index = index + 1
          Loop
'if we got this far, then we didn't find the resource, it was removed
          IsRemoved = True
     Case ORS_STATE_ROOM
'this is a room; see if it matches the value in the room field
          Set lookupname = New NotesName(note.Room(0))

          If (Lcase(keyname.CAnonical) <> Lcase(lookupname.Canonical)) Then IsRemoved = True
     Case Else
          tmpPeopleUninvited = note.Uninvited
          index = 0
          Do While (index <= Ubound(tmpPeopleUninvited))
               Set lookupname = New Notesname(tmpPeopleUninvited(index))
               If (Lcase(keyname.Canonical) = Lcase(lookupname.Canonical)) Then
                    IsRemoved = True
                    Exit Function
               End If
               index = index + 1
          Loop
     End Select
End Function
'++LotusScript Development Environment:2:1:ProcessConflict:1:8
Function ProcessConflict(othernote As NotesDocument) As Integer
    *This routine is called from CheckIfConflictExists to see if the document
     we are comparing to can be processed
%END REM

'default the return to False since this is what we are really checking for
     ProcessConflict = False
'if the two documents we are comparing are the same, then do not check for conflicts
     If (note.UniversalID = othernote.UniversalID) Then Exit Function

'if this is a reschedule, we need to check a few things
     If (note.NoticeType(0) = ORS_MSGTYPE_RESCHEDULE) Then
'first, if the reschedule notice is being compared to its parent, do not check for conflicts
          If(note.ParentDocumentUNID = othernote.UniversalID) Then
               Exit Function
          Else
'if we are not comparing ourselves to the parent, then check to see if only the room is changing
'if the room is the only thing that is changing, then we don't check for conflicts
               If ((note.StartDateTime(0) = parentnote.StartDateTime(0)) And (note.EndDateTime(0) = parentnote.EndDateTime(0))) Then Exit Function
          End If
     End If
'since we made it this far, we can check for conflicts
     ProcessConflict = True
End Function
'++LotusScript Development Environment:2:1:CheckProfileTimes:1:8
Function CheckProfileTimes(doc As NotesDocument) As Integer
    *This function is call by CheckIfConflictExists
    *It compares the times of doc to the profile to make sure the times are within the profile settings
    *This function returns true if the time is not within the defined profile times
%END REM
     Dim dstartitem As NotesItem
     Dim denditem As NotesItem

     CheckProfileTimes = True

     Set dstartitem = doc.GetFirstItem("StartDateTime")

     Select Case Weekday(doc.StartDateTime(0))
     Case 1
'sunday
          If (profile.Sunday(0) <> "1") Then Exit Function                     'this day is not selected in the profile
          ValidTimes = profile.GetItemValue("$Times1")
     Case 2
'monday
          If (profile.Monday(0) <> "2") Then Exit Function                'this day is not selected in the profile
          ValidTimes = profile.GetItemValue("$Times2")
     Case 3
'Tuesday
          If (profile.Tuesday(0) <> "3") Then  Exit Function            'this day is not selected in the profile
          ValidTimes = profile.GetItemValue("$Times3")
     Case 4
'wednesday
          If (profile.Wednesday(0) <> "4") Then Exit Function            'this day is not selected in the profile
          ValidTimes = profile.GetItemValue("$Times4")
     Case 5
'thursday
          If (profile.Thursday(0) <> "5") Then Exit Function            'this day is not selected in the profile
          ValidTimes = profile.GetItemValue("$Times5")
     Case 6
'friday
          If (profile.Friday(0) <> "6") Then Exit Function                'this day is not selected in the profile
          ValidTimes = profile.GetItemValue("$Times6")
     Case 7
'saturday
          If (profile.Saturday(0) <> "7") Then Exit Function            'this day is not selected in the profile
          ValidTimes = profile.GetItemValue("$Times7")
     End Select

     Set denditem= doc.GetFirstItem("EndDateTime")
'we must now make sure that the times fall within the profile settings
     For x = 0 To Ubound(ValidTimes)
'if the time falls within a profile range, then there is no conflict and we can exit
          Set date1 = New NotesDateTime(dstartitem.DateTimeValue.DateOnly & " " & Timevalue(ValidTimes(x)))
          Set date2 = New NotesDateTime(dstartitem.DateTimeValue.DateOnly & " " & Timevalue(ValidTimes(x+1)))

          If (dstartitem.DateTimeValue.TimeDifference(date1) >= 0) And (denditem.DateTimeValue.TimeDifference(date2) <= 0) Then
               CheckProfileTimes = False
               Exit Function
          End If
          x = x + 1
     Next
End Function
'++LotusScript Development Environment:2:1:GetSubjectText:1:8
Function GetSubjectText(userDate As Variant) As String
     Dim selMonth As String
     Dim selTime As Variant

     Select Case Month(userDate)
     Case 1
          selMonth = CS_MONTH_JAN
     Case 2
          selMonth = CS_MONTH_FEB
     Case 3
          selMonth = CS_MONTH_MAR
     Case 4
          selMonth = CS_MONTH_APR
     Case 5
          selMonth = CS_MONTH_MAY
     Case 6
          selMonth = CS_MONTH_JUNE
     Case 7
          selMonth = CS_MONTH_JULY
     Case 8
          selMonth = CS_MONTH_AUG
     Case 9
          selMonth = CS_MONTH_SEPT
     Case 10
          selMonth = CS_MONTH_OCT
     Case 11
          selMonth = CS_MONTH_NOV
     Case 12
          selMonth = CS_MONTH_DEC
     End Select

     selTime = Evaluate(|@Text(StartDateTime;"S1T1Z2")|,note)
     GetSubjectText = Cstr(Day(userDate)) & " " & selMonth & " " & selTime(0)
End Function
'++LotusScript Development Environment:2:1:GetContextSub:1:8
Function GetContextSub ( targetnote As NotesDocument ) As Integer
returns the context in which the current note exists
1 = non repeat notice
2 = repeat instance
3 = repeat notice
4 = original invitation
%END REM
     If (targetnote.IsResponse) Then
'the user opened up a response document; see what type of response this is
          If Not(targetnote.HasItem("OrgRepeat")) Then
'this is a non-repeat notice
               GetContextSub = 1
          Else
               If (parentnote.IsResponse) Then
'this is a repeat notice
                    GetContextSub = 3
               Else
                    GetContextSub = 2
               End If
          End If
     Else
'this is the main invitation
          GetContextSub = 4
     End If
End Function
( H `
)D    [T
#K4    -
#K4    -
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "ObjectVariables"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub CreateNewDoc(nDocType As Integer)
Declare Sub CreateMailMemo(pNote As NotesDocument)
Declare Sub CreateCalendarEntry(pNote As NotesDocument)
Declare Sub CreateTask(pNote As NotesDocument)
Declare Function GetSendNames(pNote As NotesDocument) As Variant
Declare Function GetCopyNames(pNote As NotesDocument) As Variant
Declare Sub AddBodyToNewNote(pNewNote As NotesDocument, pSourceNote As NotesDocument)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const NEW_MEMO = 0
Const NEW_CALENDAR = 1
Const NEW_TASK = 2
Dim bOkToCopy As Integer
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize

End Sub
'++LotusScript Development Environment:2:2:CreateNewDoc:1:8
Sub CreateNewDoc(nDocType As Integer)

     Set session = New NotesSession
     Set ws = New NotesUIWorkspace
     Set db = session.CurrentDatabase

     bOkToCopy = True

     'if there is a document currently open, and it is a new document, we cannot proceed
     Set uidoc = ws.CurrentDocument
     If Not(uidoc Is Nothing) Then
          If uidoc.IsNewDoc Then
               Messagebox "This action cannot be executed on a new document.",16,"Error"
               Exit Sub
          End If
          Set note = uidoc.Document
     Else
          Set selecteddocs = db.UnprocessedDocuments
          If (selecteddocs.Count = 0) Then
               Messagebox "Please select a document before executing this command.",16,"Error"
               Exit Sub
          End If
          Set note = selecteddocs.GetFirstDocument
     End If

     ' Make sure this document is not prevented from being copied
     If (note.~$KeepPrivate(0) = "1") Then
          Messagebox "This document is prevented from being copied. The body will not be copied into the new document created.",16,"Warning"
          bOkToCopy = False
     End If

     Select Case nDocType
     Case NEW_MEMO
          Call CreateMailMemo(note)
     Case NEW_CALENDAR
          Call CreateCalendarEntry(note)
     Case NEW_TASK
          Call CreateTask(note)
     End Select

End Sub
'++LotusScript Development Environment:2:2:CreateMailMemo:1:8
Sub CreateMailMemo(pNote As NotesDocument)

     Dim mail As NotesDocument
     Dim rtitem As NotesRichTextItem

     Set mail = New NotesDocument(db)

'set/retrieve standard mail values regardless of pNote type
     mail.Form = "Memo"
     mail.Principal = Owner
     mail.tmpSendTo = GetSendNames(pNote)
     mail.SendTo = Evaluate("@Trim(@Unique(tmpSendTo))",mail)
     mail.tmpCopyTo = GetCopyNames(pNote)
     mail.CopyTo = Evaluate("@Trim(@Unique(tmpCopyTo))",mail)

     If (pNote.NoticeType(0) <> "J") Then Call AddBodyToNewNote(mail,pNote)

     Call mail.RemoveItem("tmpSendTo")
     Call mail.RemoveItem("tmpCopyTo")


'set/retrieve mail values depending on pNote type
     Select Case pNote.Form(0)
     Case "Memo","Reply","Appointment","Task"
          mail.Subject = pNote.Subject
     Case "Notice"
          mail.Subject = pNote.Topic
     Case Else
          mail.Subject = pNote.Subject
     End Select

     mail.Logo = session.GetEnvironmentString("DefaultLogo",False)
     mail.tmpnewdoc = True
     Call ws.EditDocument(True,mail)
End Sub
'++LotusScript Development Environment:2:2:CreateCalendarEntry:1:8
Sub CreateCalendarEntry(pNote As NotesDocument)

     Dim entry As NotesDocument
     Dim rtitem As NotesRichTextItem
     Dim startdt As New NotesDateTime("")
     Dim enddt As New NotesDateTime("")
     Dim trdr As NotesDateRange
     Dim entryitem As NotesItem

     Dim sForm As String
     Dim nMinutes As Integer
     Dim nSeconds As Integer

     If (profile Is Nothing) Then Call GetCalendarOwner

     Set entry = New NotesDocument(db)

'add standard entry items
     entry.AppointmentType = profile.CalEntryType(0)
     entry.Form = "Appointment"
     entry.SendTo = GetSendNames(pNote)
     entry.CopyTo = GetCopyNames(pNote)
     entry.Chair = Owner
     entry.Principal = Owner
     entry.tmpOwner = Owner
     entry.From = session.UserName



     If (pNote.NoticeType(0) <> "J") Then Call AddBodyToNewNote(entry,pNote)

'add entry items depending upon pNote type
     sForm = pNote.Form(0)
     Select Case sForm
     Case "Memo","Reply","Task","Personal Stationery"
          startdt.SetNow
          entry.Subject = pNote.Subject
'add the startdatetime, enddatetime, timerange, and reminder time
          If (sForm = "Task") Then
'this is a task
'first, look for a StartDateTime item
               If (pNote.StartDateTime(0) <> "") Then
                    Set startitem = pNote.GetFirstItem("StartDateTime")
                    Set startdt = New NotesDateTime(startitem.DateTimeValue.DateOnly & " " & startdt.TimeOnly)
'if we don't have a startdate item, look for a duedate item
               Elseif (pNote.DueDateTime(0) <> "") Then
                    Set startitem = pNote.GetFirstItem("DueDateTime")
                    Set startdt = New NotesDateTime(startitem.DateTimeValue.DateOnly & " " & startdt.TimeOnly)
               End If
          End If
'set the time component
          nMinutes = Minute(startdt.LSLocalTime)
          nSeconds = 0 - Second(startdt.LSLocalTime)

          If (nMinutes > 45) Then
               startdt.AdjustMinute(60 - nMinutes)
          Elseif (nMinutes > 30) Then
               startdt.AdjustMinute(45 - nMinutes)
          Elseif (nMinutes > 15) Then
               startdt.AdjustMinute(30 - nMinutes)
          Else
               startdt.AdjustMinute(15 - nMinutes)
          End If

          startdt.AdjustSecond(nSeconds)

          Set entry.StartDate = startdt
          Set entry.StartDateTime = startdt
          Set entry.ReminderTime = startdt

          Set enddt = New NotesDateTime(startdt.LSLocalTime)
          enddt.AdjustMinute(profile.DefaultDuration(0))

          Set trdr = session.CreateDateRange
          Set trdr.StartDateTime = startdt
          Set trdr.EndDateTime = enddt
          Set entry.TimeRange = trdr
     Case "Appointment","Notice"
          If (sForm = "Appointment") Then
               entry.Subject = pNote.Subject
          Else
               entry.Subject = pNote.Topic
          End If

'copy the startdatetime,enddatetime,timerange, and reminder time
          Set entryitem = pNote.GetFirstItem("StartDateTime")
          If Not(entryitem Is Nothing) Then
               Call entryitem.CopyitemToDocument(entry,"StartDate")
               Call entryitem.CopyItemToDocument(entry,"StartDateTime")
               Call entryitem.CopyItemToDocument(entry,"ReminderTime")
          End If

          Set entryitem = pNote.GetFirstItem("EndDateTime")
          If Not(entryitem Is Nothing) Then Call entryitem.CopyItemToDocument(entry,"EndDateTime")

          Set entryitem = pNote.GetFirstItem("TimeRange")
          If Not (entryitem Is Nothing) Then Call entryitem.CopyItemToDocument(entry,"TimeRange")
     Case Else
          startdt.SetNow
          entry.Subject = pNote.Subject
          nMinutes = Minute(startdt.LSLocalTime)
          nSeconds = 0 - Second(startdt.LSLocalTime)

          If (nMinutes > 45) Then
               startdt.AdjustMinute(60 - nMinutes)
          Elseif (nMinutes > 30) Then
               startdt.AdjustMinute(45 - nMinutes)
          Elseif (nMinutes > 15) Then
               startdt.AdjustMinute(30 - nMinutes)
          Else
               startdt.AdjustMinute(15 - nMinutes)
          End If

          startdt.AdjustSecond(nSeconds)

          Set entry.StartDate = startdt
          Set entry.StartDateTime = startdt
          Set entry.ReminderTime = startdt

          Set enddt = New NotesDateTime(startdt.LSLocalTime)
          enddt.AdjustMinute(profile.DefaultDuration(0))

          Set trdr = session.CreateDateRange
          Set trdr.StartDateTime = startdt
          Set trdr.EndDateTime = enddt
          Set entry.TimeRange = trdr
     End Select
     entry.ExcludeFromView = "D"
     entry.tmpNewDoc = True
     Call ws.EditDocument(True,entry)
End Sub
'++LotusScript Development Environment:2:2:CreateTask:1:8
Sub CreateTask(pNote As NotesDocument)

     Dim task As NotesDocument
     Dim rtitem As NotesRichTextItem
     Dim sType As String
     Dim dueitem As NotesItem
     Dim tmpSendTo As Variant
     Dim tmpCopyTo As Variant

     Set task = New NotesDocument(db)

'add standard items
     task.Form = "Task"
     task.AssignState = 0
     task.OrgTable = "T0"

     If (pNote.NoticeType(0) <> "J") Then Call AddBodyToNewNote(task,pNote)
'for tasks, the cc = SendTo + CopyTo
     tmpSendTo = GetSendNames(pNote)
     tmpCopyTo = GetCopyNames(pNote)
     task.tmpCopyTo1 = tmpSendTo
     task.tmpCopyTo2 = tmpCopyTo
     task.CopyTo = Evaluate("@Trim(tmpCopyTo1:tmpCopyTo2)",task)
     task.RemoveItem "tmpCopyTo1"
     task.RemoveItem "tmpCopyTo2"

     task.~_ViewIcon = 168

'get specific items from pNote type
     sType = pNote.Form(0)
     Select Case sType
     Case "Memo","Reply"
          task.Subject = pNote.Subject
     Case "Appointment","Notice"
          If (sType = "Appointment") Then
               task.Subject = pNote.Subject
          Else
               taskSubject = pNote.Topic(0)
          End If

          Set dueitem = pNote.GetFirstItem("StartDateTime")
          Call dueitem.CopyItemtoDocument(task,"DueDateTime")
     Case "Task"
          task.Subject = pNote.Subject
          If (pNote.StartDateTime(0) <> "") Then
               Set dueitem = pNote.GetFirstItem("StartDateTime")
               Call dueitem.CopyItemToDocument(task,"StartDateTime")
          End If
          If (pNote.DueDateTime(0) <> "") Then
               Set dueitem = pNote.GetFirstItem("DueDateTime")
               Call dueitem.CopyItemToDocument(task,"DueDateTime")
          End If
     Case Else
'not sure what we have, so assume subject item exists, but don't prefill-in any date info
          task.Subject = pNote.Subject
     End Select
     task.ExcludeFromView = "D"
     task.tmpnewdoc = True
     Call ws.EditDocument(True,task)
End Sub
'++LotusScript Development Environment:2:1:GetSendNames:1:8
Function GetSendNames(pNote As NotesDocument) As Variant
     Dim sSendItem As String
     Dim vSendNames As Variant
     Dim vRetNames() As Variant
     Dim nItems As Integer
     Dim x As Integer
     Dim namUser As New NotesName(session.UserName)
     Dim nam As NotesName

     Select Case pNote.Form(0)
     Case "Memo","Reply"
          sSendItem = "SendTo"
     Case "Appointment","Notice"
          sSendItem = "RequiredAttendees"
     Case Else
          sSendItem = "SendTo"
     End Select

     vSendNames = pNote.GetItemValue(sSendItem)

     If (vSendNames(0) = "") And (Ubound(vSendNames) = 0) Then
          nItems = 1
     Else
          nItems = Ubound(vSendNames) + 2
     End If
     Redim vRetNames(nItems)

     Forall names In vSendNames
'make sure we don't have a blank value & the name <> current user
          If (names <> "") Then
               Set nam = New NotesName(names)
               If Lcase(nam.Common) <> Lcase(namUser.Common) Then
                    vRetNames(x) = names
                    x = x+1
               End If
          End If
     End Forall

     If (pNote.HasItem("Principal")) Then
          Set nam = New NotesName(pNote.Principal(0))
          If Lcase(nam.Common) <> Lcase(namUser.Common) Then
               If (pNote.HasItem("FromDomain")) Then
                    vRetNames(x) = pNote.Principal(0) & "@" & pNote.FromDomain(0)
               Else
                    vRetNames(x) = pNote.Principal(0)
               End If
          End If
     Else
          Set nam = New NotesName(pNote.From(0))
          If Lcase(nam.Common) <> Lcase(namUser.Common) Then
               If (pNote.HasItem("FromDomain")) Then
                    vRetnames(x) = pNote.From(0) & "@" & pNote.FromDomain(0)
               Else
                    vRetNames(x) = pNote.From(0)
               End If
          End If
     End If

     GetSendNames = vRetNames

End Function
'++LotusScript Development Environment:2:1:GetCopyNames:1:8
Function GetCopyNames(pNote As NotesDocument) As Variant
     Dim sCopyItem As String
     Dim vCopyNames As Variant
     Dim vRetnames() As Variant
     Dim x As Integer
     Dim nItems As Integer
     Dim namUser As New NotesName(session.UserName)

     Select Case pNote.Form(0)
     Case "Memo","Reply"
          sCopyItem = "CopyTo"
     Case "Appointment","Notice"
          sCopyItem = "OptionalAttendees"
     Case Else
          sCopyItem = "CopyTo"
     End Select

     vCopyNames = pNote.GetItemValue(sCopyItem)

     If (vCopyNames(0) = "") And (Ubound(vCopyNames) = 0) Then
          nItems = 1
     Else
          nItems = Ubound(vCopyNames) + 1
     End If

     Redim vRetNames(nItems)

     Forall names In vCopyNames
          If (names <> "") Then
               Set nam = New NotesName(names)
               If Lcase(nam.Common) <> Lcase(namUser.Common) Then

                    vRetNames(x) = names
                    x = x+1
               End If
          End If
     End Forall

     GetCopyNames = vRetNames
End Function
'++LotusScript Development Environment:2:2:AddBodyToNewNote:1:8
Sub AddBodyToNewNote(pNewNote As NotesDocument, pSourceNote As NotesDocument)
     Dim rtitemSource As NotesRichTextItem
     Dim rtitemNew As NotesRichTextItem
     Dim dtitem As NotesItem

     If Not(bOkToCopy) Then Exit Sub

'first, get the body field of the source note
     Set rtitemSource = pSourceNote.GetFirstItem("Body")


'now, create the new Body item
     Set rtitemNew = New NotesRichTextItem(pNewNote,"Body")
     rtitemNew.AddNewLine(2)
     rtitemNew.AppendText "---------------"
     rtitemNew.AddNewLine(1)


     Select Case pSourceNote.Form(0)
     Case "Appointment","Notice"
          If (pSourceNote.StartDateTime(0) <> "") Then
               Set dtitem = pSourceNote.GetFirstItem("StartDateTime")
               Call rtitemNew.AppendText("Start:")
               rtitemNew.AddTab(1)
               rtitemNew.AppendText(dtitem.Values(0))
               Call rtitemNew.AddNewLine(1)
          End If
          If (pSourceNote.EndDateTime(0) <> "") Then
               Set dtitem = pSourceNote.GetFirstItem("EndDateTime")
               Call rtitemNew.AppendText("End:")
               rtitemNew.AddTab(1)
               rtitemNew.AppendText(dtitem.Values(0))
               Call rtitemNew.AddNewLine(1)
          End If
          rtitemNew.AddNewLine(2)
     Case "Task"
          If (pSourceNote.StartDateTime(0) <> "") Then
               Set dtitem = pSourceNote.GetFirstItem("StartDateTime")
               Call rtitemNew.AppendText("Start date:")
               rtitemNew.AddTab(1)
               rtitemNew.AppendText(dtitem.Values(0))
               Call rtitemNew.AddNewLine(1)
          End If
          If (pSourceNote.DueDateTime(0) <> "") Then
               Set dtitem = pSourceNote.GetFirstItem("DueDateTime")
               Call rtitemNew.AppendText("Due date:")
               rtitemNew.AddTab(1)
               rtitemNew.AppendText(dtitem.Values(0))
               Call rtitemNew.AddNewLine(1)
          End If
          rtitemNew.AddNewLine(2)
     End Select
     If Not(rtitemSource Is Nothing) Then Call rtitemNew.AppendRTItem(rtitemSource)
End Sub
|    |    \
[|    N`
    N|    P
    K@    -
tmpSendTo
    0S0E
tmpCopyTo
    0S0E
tmpCopyTo1
tmpCopyTo2
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
06/21/97 02:15:29 PM Ryan Jansen/Iris updated LocalDomainServers
03/06/97 01:29:19 PM Ryan Jansen/Iris updated [LocalDomainServers]
03/06/97 01:28:35 PM Ryan Jansen/Iris updated [OtherDomainServers]
03/06/97 01:28:30 PM Ryan Jansen/Iris added [OtherDomainServers]
03/06/97 01:28:25 PM Ryan Jansen/Iris updated [LocalDomainServers]
03/06/97 01:28:21 PM Ryan Jansen/Iris added [LocalDomainServers]
03/06/97 01:28:14 PM Ryan Jansen/Iris updated [-Default-]
03/06/97 01:28:06 PM Ryan Jansen/Iris added [-Default-]
03/06/97 01:27:55 PM Ryan Jansen/Iris updated LocalDomainServers
03/06/97 01:27:51 PM Ryan Jansen/Iris added LocalDomainServers
03/06/97 01:27:45 PM Ryan Jansen/Iris deleted Ryan Jansen/Iris
03/06/97 01:27:43 PM Ryan Jansen/Iris deleted Mountain/Iris
03/06/97 01:27:42 PM Ryan Jansen/Iris updated -Default-
03/06/97 12:21:12 PM Ryan Jansen/Iris updated -Default-
03/06/97 12:21:07 PM Ryan Jansen/Iris deleted OtherDomainServers
03/06/97 12:21:04 PM Ryan Jansen/Iris deleted LocalDomainServers
03/06/97 12:20:55 PM Ryan Jansen/Iris added OtherDomainServers
03/06/97 12:20:55 PM Ryan Jansen/Iris added LocalDomainServers
03/06/97 12:20:55 PM Ryan Jansen/Iris added Mountain/Iris
03/06/97 12:20:55 PM Ryan Jansen/Iris added Ryan Jansen/Iris
-Default-
LocalDomainServers
[-Default-]
[LocalDomainServers]
[OtherDomainServers]